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RAM Test 


RAM TEST - The Frogram FOKES anid FEEKS 
random numbers, If no defects are founds 
the screen will show “(X.dILOOF (CY) DEFECTS”, 
If 2a defect is founds the s-reen will shaw 


pre number of defects and the number of the 


10 REM RAM-TEST 

20 FORI=1TO30°: PRINT: NEXT 

30 DIMFL(32),FH(32) 

40 PRINT" RAM-MEMORY TEST" PRINT 
90 FORI=1TOG. PRINT: NEXT 

60 INPUT"START ADDRESS"; As PRINT 

70 INPUT“END ADDRESS";E: PRINT 

80 IFA<Z2000THENEGO 

90 IFA>ETHENGO 

100 IFE<ATHEN7O 

110 IFE>32766THEN7O 

120 INPUT"ENTER A RANDOM NUMBER"; ZU: PRINT 
130 IFZU=OTHEN120 

140 V2Z=RND(2ZU) -V1=V2 

150 FORI=ATOE 

160 V1I=LOG(V1#V1) SV=ABSCINT(V1#100) ) 
170 IFVY>255THEN160 

180 POKEI,¥V 

190 NEXTI 

200 V1=V2 

210 FORI=ATOE 

220 V1I=LOG(V1#U1) SV=EABS(INT(V1#100) ) 
230 IFVY>2Z25S5THEN2Z2Z0 

240 X=PEEK (I) 

250 IFX=YVTHENZ90 

260 PRINT"ADD";1I;" DIFF" ;V-X.Z=2+1 
270 IFABS(Y-X) >1STHENFHCINT( 1/1024) )=FHCIN 
T(1T/1024) )+1 


=80O 


IFABS(U-A)< I GTHENFLCINT(I/1024) )=FLCIN 


TOCI/10243)+1 


290 
300 
316 
3209 
330 
340 
350 
3G 
370 
386 
390 
400 
410 
420 
439 


OK 


NEXT YT 
Pa ee ee ee 


D=D+tilsPRINTO;". cOOP";2; "DEFECTS" 
FORJ=27032 

BG=600. (Fs s@THENBO=G10 
BL=3i20H=15 

if GSBTHENBL=1i BH=1S 

IP JSiGTHENBL=1922H=27 

Troe 24THENBL=2e7 2 BH=35 

IFFL (GU) SOTHENSOO 
PRINTFEL (CG); "DEFECT IN iO"; J+BL; BO 
TFFH( Cl: =OTHEN4LO 
PRINTFR( SJ); "DEFECT IN IC"; J+BH7 BO 
NEAT J 

PRINT 

GOTO140 


Memory Test 


MEMORY TEST - This is 2a memory test for the 


Surerboard with either 4K or 8K, The 
Frogram FOKES and FEEKS each memory 
location. If there is 2 difference 
encountered,» the two numbers will arrear at 
the srFecific memors location. 


i090 Y=8i91 

SO INPUT"4 SR GK "FKIIFK=47HENY =4054 
30 P=1030 

40 G=255 

9G FORK=PTCY 

6G POKEX,@ 

70 NEXTX 

BO FORK=PTCY 

990 Z=PEEK (A) 

100 IF2i-QTHENGOSUBi 40 

110 NEXTXKIPRINT" PASS USING ";Q 

1290 IFQ=OTHEN4SO 

130 @=9.60T050 

i140 PRINT" LOCATION "“X;" WAS “2 " NOT “3a 
>RETURN 
OK 


Hex Dump in BASIC 


HEX 


TUMF IN BASIC - This BASIC Frogram 


disFlays memory content from 2 srecific 
area in hexidecinmal. 


10 
29 
36 
40 
390 
*" 
60 
79 
80 
90 
100 
119 
120 
130 
140 
150 
160 
i70 
i180 
i990 
200 
216 
220 
230 
240 
250 
260 
270 


REM MEMORY DUMP IN BASIC 

FOR X=1 TO 30.PRINTONEXT 

DIM 2%(16) 

2$="0123456 789ABCDEF " 

PRINT"OUTPUT FROM MEMORY CONTENTS IN HE 


PRINT 
PRINT'"ADDRESS FROM (HEX)" 
INPUT At 
PRINT" TO (HEX) " 
INPUT BS 

PRINT 

A=0 

P=0 
VS=MIDS(AB, 122) 
GOSUB 430 
A=VYH#256 
VSEMIDS(AGS,372) 
GOSLB430 

A=A+V 
US=MID$(BS$,1,2) 
GOSUB430 
B=aWH#256 
VS=MID$(BS$73,2) 
GOSUB430 

B=B+V 

J=A 
VYEINT(J/256) 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 
920 


OK 


GOSUB4S0 
PRINTVUS; 
VeJ—-VR256 
GOSUB490 
PRINTV$;" "7 
V=PEEK (J) 
GOSUB490 
PRINTVS;" "> 
J=J+l1 
IFU/4< 2 INT(JS/4) THENSSO 
PRINT" “>; 
IFS/2G6< INTC J/1G) THENQ3O 
IF JoB THEN STOP 
PRINT 
GOTO270 
FORI=0OTOi5 
IFMID$(V$,ir-1)=MID$(2$,I+1,1)THENVIEI 
IFMIDS$(V$,2-1>=MID$(2$,1+1,1) THENYZST 
NEXT I 
V=V1#16+VU2 
RETURN 
a=INT(V/1G6) 
Y2=V-VY1#16 
VS=MIDS(2$,Vitl, 1 +MIDS(2$,/V2+1,1) 
RETURN 


Joystick for CIP 


JOYSTICK FROGRAM FOR CIF - This Frogram is 
written for the Surerboard with two 
connected Joysticks, You can move the 
tanks in eight different directions, Fush 
down on the button to fire at your 
orronent. 


10 FORX=i1TO3SO. PRINT ONEXKT 
20 FORK=i1TOSBSREADM(X),T(K) SNEKT 
30 A=S4040/B=S4010,T1=248.7T2=248 


40 POKES30, 1 

SO POKES7088,127°G=A:T=T1SGM=M1 2 ¥=0.00SUE1 
OOTTIFE=T 

6QO POKEA,32°A=A+M. POKEA,T1. IF MS 2OTHENM1 =M 
70 PGKES7086,i191 °>G=BoT=T2°GM=M25Y=12.GOSUBi 
COTT2Z=T 

BO POKEB,32:B=M+B: POKEB,T2: 1FM< >OTHENM2=M 
90 GOTOS0 

100 P=PEEK (57068) 

110 IFP=127ANDY=i THENZ=A.GOSUB2Z3C 

120 IFP=127ANDY=OTHENZ=B 2 GOSUB230 

130 M=0 

140 IFP=i9i1THENM=M(1)°27T=T(1) 

150 IFP=223THENM=M(2) 2 T=T(2) 

160 IFP=239THENM=M(3).T=T(3) 

170 IFP=247THENM=M(4) 0 T=T(4) 

180 IFP=159THENM=M(5) -THTC(S) 

190 LFP=207THENM=M(G) -T=T(6) 

200 IFP=231 THENM=M(7) 2 T=T(7) 

210 IFP=1837THENM=M(8) -T=T( 8) 

220 RETURN 

230 FORX=1T0102POKEG+X#GN,171 

240 IFPEEK(2)=171THEN280 

250 POKEG+X#GM, 32 

260 NEXT 

270 RETURN 


2B0 E=42 

290 FORX=1TOS: POKEZ+X,E: POKEZ—-X,E2POKEZ-32 
rE 2 POKEZ+32,E 

300 POKEZ-32#xX,Es POKEZ+92#K, ES POKEZ-32#xX,E 
>NEXTX 

310 IFE=42THENE=32 .GOTO290 

320 FORX=1TO25°. PRINT NEXT 

330 AS="B" 

340 IFY=OTHENAS="A" 

350 PRINT" S$ C OR E" 

360 PRINT 

370 PRINT" FOR ";7AS 

380 PRINT: PRINT. PRINT. PRINT: PRINT 

390 INPUT"ONCE AGAIN (Y/N) ";7Q% 

400 IFQ$="N" THENEND 

410 RESTORE-GOTO10 

420 DATA -32,248,1,250,32,252,-1,254,-31;2 
49,/33,251,31,253,-33,255 
OK 


ARRAY SEARCH - 
Fossitle way to store 2 
statements, 
consists of wage 
derartments 
derartment has 5 wade grours. 


Array Search 


This Frogram shows 2 
schedule in MNATA 
In this examele the schedule 
rates. There are 10 
in e comrFany end each 


For exnanmrle? 


the wage rate in derartment 10% wage gdrour 


5» 
1s 
20 
ao 
£0 
30 
60 
70 
BO 
90 


is $7,80. The concert of array 
needed in many Frogreams, 


search 


DIM AC19,5) 

FORD=i170i1 

FORG=1TSS 

READ A(D,G) -NEATG,D 
FORQ=1TOSO2 PRINT ONEXT 
INPUT"ENTER DEPARTMENT" ;D 
PRINT 

INPUT"“ENTER WAGE GROUP":G 


100 
110 
120 
190 
140 
150 
G) 

160 
i790 
180 
200 
210 
220 
230 
240 
250 
260 
270 
280 


250 


10 


PRINTOPRINT PRINT 
PRINT“ HOURLY WAGE 
PRINT 

INPUT“HOW MANY HOURS WORKED";H 

PRINT? PRINT: PRINT 

PRINT"WAGES FOR THiS TIME ARE $";H#ACD 


IS $";ACD,G) 


PRINTIPRINT. PRINT 
INPUT" AGOSIN' LYS 
IFYS$="Y" THENGO 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4,4.1,4 


Anon aU AWN 
Moon > 
WQWh + 
wo 


Orwuvwnonanwdsr 


~ . 
“ 
“= e 


NoawWuWdn aunt 
OmoOoneKoOOWaoO 


~“ . 


Memory Map 


MEMORY MAF - 
0000 0 JUMP in Warm-start to 
BASIC (4€ 74 A2) 
JUMP in cold-start to 
BASIC (4C 11 BD) 
0003 3 Message rrinter 
(A8C3) 
0008-0009 &-9 USK Frogram address 
OOOR-000C 11-12 Address of USK 
Routine 
oo0on 13 Number of nulls after 
CR 
OOOE 14 Number of signs after 
last CR 
OOOF 15 Terminal width for 
auto CRLF 
0010 16 Terminal widths 


divided by commas 
0013-005A 19-90 Ineut buffer 


0017 23 Terminal width 

0018 24 No. of cherecters ain 
fields (14) 

OOSF 95 String variable being 
Frocessed flag (7) 

0061 97 ? 

0064 100 CTRL O Flas (Hi bit= 
1) surrresses the 
Printout 

0065 101 Sometimes contains 
$68 (??) 

0078 120 Lo byte addresses 


beginning of BASIC 
worksFace 


11 


0079 


0079-007A 
007K-007C 
0071'-007E 
007F-0080 


0080-008A 
0081-0082 


0084 
008s 
0085-0086 
0087-0088 


008F-0090 
0095-0096 


0097-0098 
00AI 


12 


121 


121-122 


123-124 


127-128 


128-139 
129-130 


132 


133 


133-134 


135-136 


143-144 
149-150 


151-152 


161 


Hi teste addresses 
beginning of BASIC 
worksFrace 


Fointer to the first 
null of BASIC work 
memory 

Fointer to the begin- 
ning of variable 
memory 

Fointer to the besgin- 
ning of the RASIC 
Array memory 

Fointer to the end of 
Array, start of free 
memory area 

Sometimes next line 
number (7?) 

Fointer to (tor of 
free memory) to end 
of string area 

LO tyte address at 
end of BASIC work- 
SFace 

Hi tste address at 
end of BASIC work- 
srece 

Fointer to urrer li- 
mit of memorss 
useable by BASIC 

Actual RASIC line 
number 

DNATA Frointer 
This is where ADOKB 
leaves address af 
the variable it 
found 

Address of variable 
to be assigned value 
by OQUTVAR(AFC1) 

Genl eure JMF instr? 
Fut target addr in 
A2s» AZ 


OOAA-OOAR 


OOAN-OOAE 


OOAE-OOAF 


OOFC 
00C2 
o0or1-oon?7 


OOnE 


OODF 
0OEO 
0OE0-00ES6 


OOE1 
O0E2 
OOES 
00E7 
0OE8 


OOE8-O0FF 


OOE? 
OOEA 


170-171 


173-174 


174-175 


188 
194 
209-215 


Foints to the Fointer 
of the next BASIC 
line efter LIST 

The contents af this 
Fair is Frinted in 
decimal ty B42 


This is where INVAR 
(AEOS) leaves its 
argument 

Get next cher in 
BASIC line 

Get current cher in EB 
line 

Clobbered by OSI Exs- 
tended Monitor dis- 
assemblers kalls 
BASIC 

Real Time Monitor(1- 
enables O-dis- 
ables) 

Start Countdown timer 
(I-start O-stor) 

Hours ta Countdown 

At the moment RAN 
area not used in the 
wero Fase 

Minutes to Countddown 

Seconds to Countdown 

Mask Register for 
Fort 1A TtATA-cor- 
reFronding Resister 

Mask Resister for 
Fort 1A CONTROL 

Mask Register for 
Fort 1B DATA 

At the moment RAM 
area of RASIC is not 
used 

Mask Register for 
Fort 1B CONTROL 

Mask Resdister for 
Fort 2A IATA 

13 


QOOER 
OOEC 
OOEN 


OOEE 
OOEF 
OOF O 
OOF 1 
OOF? 


OOF ER 
OOFC 
OOFE-OOFF 
0100-0141 
0130 
01C0 
0200 
0201 
0202 
203 
0205 
0206 


0207-020E 


14 


238 
239 
240 
241 
249 


Mask Register for 
Fort 2A CONTROL 
Mask Register for 
Fort 2B DATA 
Mask Register for 
Fort 2R CONTROL 


Mask Resister for 
Fort 3A NATA 

Mask Resister for 
Fort 3A CONTROL 

Mask Register for 
Fort 3B IIATA 

Mask Resister for 
Fort 3B CONTROL 

Contains largest val- 
ue (86832) that can 
be FEEKed 

Cassette/Keyboard- 
Flag for monitor 

Flus memory data 
for the monitor 

Address of the actual 
ROM monitor location 

Stack 

NMI Routine 

IRQ Routine 

Cursor Fosition 

Save cheracter to be 
Frinted 

Teme storage used by 

CRT driver 

LOAD-Flag 

SAVE-Fleg 

F3ud Rate for CRT. 
O00=fasts FF=slow 
Variable execution 
tlock-code for 
screen scroll - not 
reusable 

Control C-Flag(If 
Control C-key 1s 
eushed Flag is set) 


0215-0216 
0218 
021A 
021C 


O21E 


0222-02F RB 


O2ZES 
O2EE 
0705 


0819 
0898 
0OB48 


OR4N 
OR4E 
OR48-2212 


OR9SC 
string 


131-5354 
336 
w38 
240 


542 
546-760 


348 
549 
741 


2888, 


2893 
2894 


2888-8722 


2972 


Folled Kestoard flus 
memory and counter 

Ineut Vector FFRA 

Quteut Vector FF4S 

Control-C Check- 
Vector FF9OR 

LOA Vector FFS&R 


Free for small user 
routines 

Hi tute address far 
C driver 

Lo byte address for 
C driver 

“LIST” (76-enables 
10-disables) 

“NEW*’ (78-enebles 
10-disables) 

Control line # list 
of BASIC (32-enables 
4$4~dJisables) 

“CONTROL C” (173-en- 
ables Y4-disables) 

ROM direction of mask 
0 to load at 0220 

Null inreut Jumes out 
of Frogram(0-dis- 
@bles 27-enables) 
(28-"REDOQ FROM START“ 
enable) 

(11-*“REDO FROM START” 
enable) 

Both O & null inrFut 
to “INFUT” yields 
emety array or a 0. 
If Both are 27s then 
inFut statement 
function is normal. 

5&8 (comma) 15 @2@ 


ineut termination, 


13-disatles 


2976 


£708 
8902 


8909 


8910 


8917 
8944 
8954 
BPRS 
B956 
8960 
B99 
BYOF 
B99S 


BIDS 


8998 


B99? 


44 (colon) is 2 
Ineut termination. 


13-disables 
Quteut flag for Feri- 
Fheral devices (44) 
Tletermines which reqd- 
ister (less 1) RIMON 
scans 


Hi tyte address of 
FIA for RTMON scean- 
ning 

Lo byte address of 
FIA for RTMON scan- 
ning 

USR(X) oreration code 

Outrut fleg 

Location of JSR to 
disk USR(X) routine 

Lo byte address of 
USR(X) rointer 

Hi byte address of 
USR(X) Fointer 

Memory (RAM) Fase 
count minus 1 

I/O distributor inreut 
flag 

I/O distributor out- 
Fut fleas 

Index to current ACIA 
on 550 board 

Location of random 
seed for RKNI func- 
tion 

Lo byte address of 
Fointer to disk 
tuffer 1 

Hi byte address of 
Fointer tao disk 
buffer 1 


2oF I 


2OFE 


2416 


2417 


2498 


7000 


?001 


90046-7013 


FOPRB 


PO9P 
9105 
7106 
9132 


P1353 


9155 


9156 


9213 


9214 


9238 


P23 


9368 


Lo tyte 


eddress of 


the end (Flus 1) of 
disk buffer area 


Hi byte 


address of 


the end (Flus 1) of 

disk tuffer area 
Nemory buffered disk 

I/O tat 46 device 


Farameters 

Lo bute address for 
memory in-ut 

Hi byte address for 
memors inreut 

Lo bste address for 
memory output 

Hi byte address far 
memory outrut 

Lo bette address for 
memory buffered disk 
inFut 

Hi byte address for 
memory tuffered disk 
Ineut 

Lo byte address for 
memors buffered disk 
outeut 

hi byte address for 
memory tuffered disk 
outrut 

Lo bste address for 
memory buffered disk 
inFut 

Hi byte address for 


memory 
inrut 
Lo byte 
memory 
outeut 
Hi tute 
memory 
outrut 
Hi bute 


buffered disk 


eddress for 
buffered disk 


address for 
buffered disk 


address for 
17 


24R2 


24RS 


24R4 


24B5 


24R6 


2487 


24k8 


249 


24BA 


9554 


9392 


PSPS 


9594 


PSPS 


9396 


9397 


9598 


P39? 


9400 


9401 


9402 


7403 


9666 


Indirect file inreut 


(low-00) 


Hi bste address for 
indirect file outrut 


(low-00) 
Active Stete 
for Fort 1A 
Register 
Active State 
for Fort 1A 
Register 


Active State 
for Fort 18 
Register 

Active State 
for Fort 18 
Register 

Active State 
for Fort 2A 
Register 

Active State 
for Fort 2A 
Register 

Active State 
for Fort 2B 
Register 

Active State 
for Fort 2R 
Register 

Active. State 
for Fort 3A 
Register 

Active State 
for Fort 3A 
Resister 

Active State 
for Fort 3B 
Register 

Active State 
for Fort 3B 
Resister 


Register 
Nate 


Register 
Contral 


Register 
Nata 


Register 
Control 


Register 
Nate 


Register 
Control 


Register 
Data 


Register 
Control 


Register 
Data 


Resister 
Contreal 


Register 
fiata 


Register 
Control 


Move left margin to 


2503 
250 


265E 
265F 


2660 


2661 


2662 
2073 


2FOA 


A000-A037 
A000-EFFF 
A0NSB-ADNES 


A084-A163 


A164-A186 
A1A1 


9667 
94680 


9822 
9823 


9824 


9825 


F826 
11635 


12042 


40960-41015 
40960-49151 
41016-41061 
41092-41315 


41316-41350 
41377 


41490 
41548 


the right 

Moves scroll uF 

This lacation con- 
tains the cursor 
cheracter designa- 
tion 

Sector # for USR(X) 
disk oFeration 

Fase count for USR(X) 
disk write 


Lo byte address of 
memory tlack for 
USR(X) disk orer- 
ation 

Hi byte address of 
memory tlock for 
USR(X) disk orer- 
ation 
Track # for USR(X) 
disk oreration 

String outeut-Routine 
from BRASIC-ROM, 
After calling this 
sub-routine 2a str- 
ing can be disrlasyed 
on the screen, 

Location of 24 used 
by random access 
file calc. routines 

RASIC exit wume table 

RASIC in ROM 

BASIC non-initial 
word Jumes (real 
entry addresses) 

BASIC Keyboard in 
ASCII 

Error messages 

Look back thru 
stack ??? 

Check for OM end 
stack overflow 
“OM” error 
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AL4E 


A274 


A477 


A491 
ASC? 
ASFC 
ASFF 
Ab29 
AbS6S 
A6b7E 


A77F 
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41550 


41588 


41815 


41862 
41881 


42034 


42103 


42129 
42434 
42492 
42495 
42537 
42550 


42619 
42879 


Error’ caller sets xXx 
register to error 
code 

BASIC Warm-start. To 
Jume to this add- 
ress 1s ahout the 
same as hitting W 
after BREAK. Frints 
“OK” on the screen 

Ineut and fill buffer 
Fut null at end 

Inrut from FFER 

Toggle CTRL O flag 


Find BASIC line whose 
# is in 119 12% Fut 
addr of Ftr of that 
line in AA? AR 

Call this routine and 
then Jume to ASC2 
and you/‘’ll be RUNing 
the current BASIC 
Frogram - starting 
from machine = lang- 
vase! 

Clear stack? 0 in &C 
and 61 

Tor of main BASIC 
execute loor 

Entry to BASIC exe- 
cute loor 

Do line of BASIC 

Jme FFF1 for CTRL C 

CTRL C entry roint 

Set null count at 
no (7?) 

This routine takes an 
expression whose 
starting address 1s 
00C3 and 00C4 and 
changes from ACSCII- 
HEX to binary. The 
result is ian the 


AE66 


AGEC 
ARCS 


ABEO 
ABES 


ABES 


AP25 
AP46 
AAAT 


AACI 
ABAQ 


ARDS 
ARFS 


ABFS-ACOC 44021-44044 


43110 


435116 
43203 


43232 
43235 


43237 


45301 
43334 
4I69S 


493713 
4S9SE 


435992 
44021 


address OQOACs OOADs 
OOAEs OOAF 
Fut null at end of 
buffers CRLF? mulls 
CRLF w/nulls from On 
Frint routine for 
messages, Urrer add- 
ress in the Y-resis- 
tery lower address 
in the A-registery» 
ASCII-string 
Quteut’”’ 
Outeut “??” 


Quteut char in As 
urPdate QE? check 
line length 
Input routine less 
clear CTRL O 

Outrut “?*s iumP to 
A357 

Get 16 bit arg from 
RASIC lines AEOS 
Will Fut value an 
AEs AFs this is 2a TM 
error check 

Like AAAR no tyre 
mismatch check. 

FutO in SFe get chars 
goto B887 if num- 
eric ??? 

146 bit complement us- 
ing AEOS/AFCI 7? 

Checks for “(*%»s call 
AACIs checks for 
“ye” 

This series of 
routines (actually 
of entry Froints to 
one routine) uses 
the BC routine ta 
check for various 
delimiters. If sou 
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dJisassemtle the ROM 
heres it will 
demonstrate classic 
use of the 2C oFcode 
as a combination NOF 
and immediate loads 
derendins on where 
you JumF In. ABFRB 
Checks for “*)“sABFE 
for “(“% ACO1l for 
“93 ACO3 for 
whatever cheracter 
you leave in A when 
you call it. ARFS 
checks for 7(%>» 
Calls AAC1 to get 2 
value, then checks 
for “)*, 

(Thoughts of 2 BASIC statement X=USR(Y) 

(Z) should be JumrFing into your head ebout 

now.) 


ABFR 44027 SN err if next char 
not ~)% 

ARBFE 44030 SN err if next cher 
not “(% 

ACO] 44033 SN err if next cher 
not “9” 

ACOS 44035 SN err if next not 
whet’s in A 

ACOC 44044 SN err Frinter 

ALOR 44299 Get var name from 


BASIC lines rut 
addr of var in 95» 
96 and AsY 

ANSZ 494371 Exrects var name in 
939947 finds addr 
of var and rut in 
9579S and ArYr O 


in 61 

AEOS 44549 INVAR ruts 15 bit 
signed value in 
AE + AF 
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AEBS 
AE88 
AFC! 


ROAE 
RSAE 


RSF S 
R408 


R4n0 
R887 
RISA 
BOSE 


B962 
BD11 


BE4E 
BEE4 


BEF 3 
REFE 
BFO7 


BFIS 
BF22 


494677 
44680 
44993 


495250 
45998 


46067 
46088 


46288 
47239 
47450 
47454 


47458 
48401 


48718 
48868 


48883 
48894 
48903 


48917 
48930 


RS error 

FC error 

OUTVAR 0 in 5F#(A)d 
in AE?(Y) in AF? 
then ta ? 

Msg Frinter (A8C3) 

Fut @ bit arg from 
line in AE» AF 

(BAxs BR) to C39C4 

Changes 2 binary 
value in the float- 
Ing Foint accumu- 
lator to 3 twa byte 
number and ruts it 
into locations 0011 
and 0012 


Arith to normalize 

FF arg?? 

Check for ts -» $y» #» 
«rs Eoselong! 

Frints current line 
number 

Changes the hex num- 
ter whose value iI5 
in the registers A 
and Xs» to e decinmel 
number and disrlays 
it on the screen 

Frints contents of 
ADT, AE (as dec) 

BASIC cold-start 
address 

“Written by” message 

UART inrut routine 
($1883 chir at FROX) 

UART outrut routine 

UART initialization 

ACIA inFeut (6850 
chire at FCOX-like 
CII-4F) 

ACIA outrut routine 

ACIA initialization 
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BF 20 


C704 
C705 
C706 
C707 
C708 
C709 
C70A 


C70B 

C70C 
c7on 
C70E 

C70OF 
DOOO-SFF 
D0OO-l7FF 
NEOO 

DF OO 

[FOI 

ESEC 
FO00-FO01 
24 


48941 


510948 
S094? 


0951 

20952 
3095S 
30954 
I09SS 
“10956 
10957 
39058 
S905? 
95248-54271 
95248-55295 
56832 
37088 
57089 
38348 
61440-61441 


Disrelay routine. 
[liselays contents of 
accumulator (ASC- 
II value) on the 
screen 

lata resister for 
Fort 1A 

Control register 
for Fort 1A 

Nata register for 
Fort 1B 

Control register 
for Fort 1B 

Date resister for 
Fort 2A 

Control resister 
for Fort 2A 

flata resister for 
Fort 2B 


Control resister 
for Fort 2R 

lata resister for 
Fort 3A 

Control resister 
for Fort 3A 

Nata register for 
Fort 3R 

Control resister 
for Fort 3R 

Picture rereat mem- 
ory 

Video Memory 

Tone Generators 
cheracter/line & 
Color on/off (0-7) 

Folled Kesboard 

Freauencys for Tone 
Generator 

Seecifies Color (0- 
15) 

Cassette Fort 6850 
(ACIA C1F) 


F800 
FSO0-FFFF 
Fao! 


F802 
F803 


F804 


F805 
F806 


F807 


F808 
F809? 


FROO 
FCOO 
FCO! 


FCRI 


Fi0o 


63488 
63488-63535 
55489 


65490 
5491 


65492 


65493 
45494 


65459 


63496 
63497 


64256 
64512 
64513 


64689 


64768 


TelerFhone Interface 

Monitor E°RON 
Telerhone Interface 
Control Readister for 
63489 

Telerhane Interface 
Telerhone Interface 
Control Register for 
463490 

1PA4 MODEM self test 
1FAS MODEM seuelch 
1FA6 MODEM originate 
mc.» IPA7 MODEM ans- 
wer mode 1CA1 DTWF 
decodes strobe 

Control Register for 
55492 

IFBO-1FR7 Dialer Tate 
(1CB1 »1CR2 not 
used) 


Control Register for 
65494 

ACIA 

Control Register for 
65496 

430 board’s A/D con- 
verter outeut 

Florry Initializing 
routine 

ACIA Data Register 
(for Frinter ar 
modem) 

Qutreut from a byte of 
the A-resgister to 
the cassette 

Ineut of 2 character 
from the keyboerd,. 
The ASCII code of 
this character is 
Fut to the accumul- 
etor (A-resdister). 
Stored in addresses 
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FEOO 


FEOC 


FE4S 


FE80 


FE9S 


FFOO 
FF49 


FF98 
FFBA 
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65171 


65280 
65385 


65435 
65466 


0200-0216 hex 

Entry to monitor. 
Erases screens ruts 
ACIA back 

Entrs to monitor 
without stack init- 
lelization 

Frings monitor into 
the address mode 

Ineut of an ASCII- 
Character form cas- 
sette. Value is 
then in the A-reg- 
ister 

Changes an ASCII-hex 
number to its binary 
eauivalent. Result 
in the A-resgister 
(80 if mistake) 

RESET entrs roint 


BASIC-routine for 
Frosgram-outrut on 
cassette. Futs a 
character to tare & 
disFlays it at the 
same time on the 
screen. For CR it 
outruts 10 nulls, 
The save flag has to 
be set (0205 = 1) 

Cantrol-C routine 

RASIC Inrut routine 


GAMES 


Archers 
Ayatollah 

Ball [lance 
Black Bon 
Concentration 
Matic Seuere 
Mickeys Mouse 
Seace Shuttle 
Tank in @ Trar 
Turnabout 


27 


Archery 


ARCHERY GAME - This is 2 game of skill--or 
luck! ! It conteins uniaue travectory Flot 
not often found in this tyre of game, 


i190 REM CiP AND C2P VERSION OF ARTHERY.BY 
DAVE WILKIE 

110 GOSU51140 

iZO INPUT"CiP SR CePPrrT res TS 

130 TFTS="Ci" THENII20 

140 IF T$="C2"THENLIS0 

150 GOTOiz20 

1G0 REM WE GOSUB TO READ VIDEG PARAMETERS 
170 REMC=LOWERLEF TSCREEN, DH=WIDTHOFSCREEN,: 
DVY=HEIGHT » DD=ADDRESS INCREMENT 

180 REM BETWEEN VERTICALLY ADJACENT SCREEN 
CHARACTERS 

190 GOTG220 

200 FORT=H1TO34.PPINT ONEXT 

210 RETURN 

220 GOSUBi140 


230 PRINT" ARCHERY “ 
240 PRINTOPRINT.OPRINTOPRINT: PRINT SPRINT 
230 PRINT" BE CAREFUL! !" 


260 PRINT" DON’T SHOOT YOURSELF" 

270 FORTI=OTO1000 NEXT 

280 GOSUB1140 

290 PRINT"KHAT IS YOUR PROFICIENCY" 

300 INPUT" (1=BEGINNER) (2=AMATELR) (3=PRO) 
(4=SUPER PRO)";PR 

310 GOSU8i140 

220 IFPR=1THENPRINT" Aw SHUCKS" 
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330 
an 

340 
Ni i 

350 


IFPRESTHENPRINT"SO wHOSE FAULT iS TRAT 
iF PREGTHENPRINT"PROS ARE A DIME A DOZE 


TF PREQTHENPRINT "WILLIAM TELL REINCARNA 


TEN SPRINT SPRINT" WE’LL S90 


250 
37C 
380 
390 
400 
4190 
420 
430 
440 
430 
460 
470 
480 
490 
oGO 
vio 
920 
530 


PRINTIPRINTI PRINT SPRINTIPRINT SPRINT 
FORTIC=; TOZO000 2 NEXT 

GOSUea1140 

N=24/7PR 

REM ENTER HERE FOLLOWING HiT 
R=LOO#PR#IRND(1+PR)+50 

HAK=1 .9#RIG=32.2 

REM ENTER HERE FOLLOWING MiSs 
PRINT'YOU HAVE" N" ARROWS “ 

PRINT“ RANGE IS"R"FEET" 

PRINT"CHOOSE INITIAL VELOCITY" 
INPUT"LESS THAN 2O0Ft/sS"7V0 
IFYUO>2O00THENGOTO460 

PRINT"CHOOSE INITIAL ANGLE" 
INPUT"LESS THAN SO"; TH 

IFT He SOTHENGO?TOS90 

THETH/57.9 

REM VWAK £S GOING TG BE MAXIMUM DISPLAY 


HEIGHT IN FEET. if MAY BE 


340 


REM A CONSTANT GR THE EQUATION OF LI 


NE GOO 


350 


GOTOS7O°REM THIS AVOIDS THE VERT. SORE 


EN FILL OPTION IN CLINE GOO. 


360 
970 
380 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
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VAX=VO°%2# (SINC TH) )%2/ (2G) 

VYAKER 
XD=Z2#SIN( TH) #COS( TH) #(VO%2)/G6 
XE=xXD-R 

XF=ABS( XE) 

GG5U681146 

N=N-1 

FORT=OTODH: POKE(C+I),132 

NEXTI 

FORTI=OTODY: POKE(C-DD#I),139°NEXTI 
POKE(C+INT(DH/1.5)),2393 

FORI=0 TO DHIX=I1#HAX/DH 

YER#TANC TH) -—(X%2) #G/ (2% (YOHCOS (TH) 3 %2) 
YI=INTCY#DV/VAX) #DD 


700 
710 
720 
730 
749 
730 
760 
779 
7B0 
790 
800 
810 
820 
830 
B40 
B50 
BGO 
980 
870 
880 
XT 
B90 
900 
910 
920 


PK=C+I-YI 

IF P« >C+DDTHENGCTOBGO 

IF I=OTHENCR=17 

ITF I=OTHENGOTO790 
IFYISYLTHENCR=17 

ZPYY 2YLTHENGOTO790 
IFYI=YLTHENCR=i 
ZFYT=YLTHENGOTO790 

CR=19 

POKE (PK), (CR) 

YL=YVI 

NEXTI 

FORI=OTOLOOOINEXTI 

PRINT 

PRINT"GEE WHIZ, EASE UP!" 
GoTogso 
FORTII=OTOLOOOSNEXTIISCIFXF>1/PRTHENGOTO 


FORTT=1T02 
FORTI=OTO255: POKE(C+INT(DH/1.5)),TIINE 


POKE(C+INT(DH/1.5)),32 

NEXT TT 

PRINT 

PRINT" CONGRATULATIONS!!!" PRINT" 


YOU HIT I7!!t" 


930 
940 
950 
960 
INT 
970 
980 


REM GOOD SPOT FOR BULLS-EYE SCORING? 
H=H+1 

IFN=0GOTO01060 

PRINTIPRINT"##### NEW TARGET #4222" 0PR 


GOTO400 
IFXE< OTHENXES= "UNDERSHOOT" = XE=ABS( KE): 


GOTO1000 


990 


TF XE >OTHENXES= "OVERSHOOT " 


1000 IFXD<3OTHENPRINT"FACT IS, YOU SHOT YO 


UR- 


SELF IN THE FOOT!" 


1010 IFXD<30THEN PRINT"BE MORE CAREFUL! "2G 
0T01030 
1020 PRINTXE" FOOT "“XES 
10390 PRINT"VELOCITY WAS"VOSPRINT“ANGLE WAS 
"THHS7.3 
1040 IFN=0GOTO10G0 


1050 GOTO0440 
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1060 


u HH" OUT 


1070 
Ne" 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
OK 
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PRINT“ YOU‘’RE OUT OF ARROWS. YOU HIT 


OF"24/PR" TIMES" 
PRINT“"WOULD YOU LIKE TCO PLAY AGAI 
INPUTAGS 


IFLEFTS$(AGS$,i)="Y¥"THEN GOTOSSO 
PRINT“SOME WILLIAM TELL YOU ARE" 
END 

C=54051 2 DH=25 2 DV=22 > DD=32:GOTO160 
C=55040: DH=G69. DV=32.DD=64:GO0TOiGO 
FORX=1TOSS SPRINT INEXT 

RETURN 


Ayatollah 


AYATOLLAH - This game lets you attemrt to 
rule Iran as the Ayatollah. Let’s see what 
kind of 2 ruler you will he. Re sure to 
take good care of your hosteges. Good 
luck! 


100 REM AYATOLLAH 

110 FORX1=OTOC3S~: PRINTS NEXT 

120 PRINT"TEST YOUR ADMINISTRATIVE ABILITY 
BY RULING A THIRD "; 

i30 PRINT"WORLD NATION 

140 PRINT"SUCCESSFULLY FOR A 10-YR. TERM CG 
F OFFICE." PRINT 

150 DI=Ol2P1=0,2=0.22=0 75851 

160 Y=INT(RND(3) #20) SA=INT (600#RND(O) +600) 
sE=INT(RND(O) #200) 

170 IT=INTCRND(0)#10) SPH=INT(RND( 45) #140) 
180 IFY<3THENY=3 

190 IFI<1THENI=1 

200 IFP<GSTHENP=65 

210 H=Y#ASS=H-E 

220 BB=S/P 

230 AA=A/P 

240 D=0 

250 PRINT 
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260 


PRINT: PRINTSPRINT“AYATOLLAH: I AM TELL 


ING YOU," 2 2=Z2+1 


270 


PRINT" IN THE YEAR"Z","D"SLAVES STARVED 


r"I"HOSTAGES "; 


280 
290 
300 
310 
320 
330 
340 


PRINT"WERE CAPTURED 

P=P+I 

IFQ*>O0THENGSO 

K=INT(RND(2.5)#1.5)4+1.1 

P=INT(P/X) 

P=INT(P/2) 

PRINT“ ANOTHER REVOLUTION OF RELIGIOUS 


FANATICS. MANY SLAVES DIED 


350 
360 
370 
380 
390 
400 
410 


PRINT" POPULATION IS NOW"P 
PRINT" THE CITY NOW OWNS"A"ACRES." 
PRINT"YOU HAVESTED"Y"“BUSHELS PER ACRE. 


PRINT" THIEVERY ACCOUNTED FOR"E"BUSHELS 
EL1=INT(E/4) . IFE=OTHENE1=495 


PRINT" TAXES WERE"E1"BUSHELS 
PRINT" YOU NOW HAVE"S"BUSHELS IN STORE. 


"2PRINT 


420 
430 
440 
450 
460 
470 
480 


ACRE 


490 
Y "> 
900 
910 
320 
930 
940 
350 
560 
370 


IFZ=S1AND2ZZ=4THEN1 220 
IF2Z=41AND2Z2=3THENI220 
IFZ=31AND2Z2Z=2THEN1220 
IFZ=21AND2Z22=1THENI220 
IFZ=1L1AND2Z22Z2=OTHEN1220 

C=INT(1O#RND(1)) SY=C+17 

PRINT"LAND IS TRADING AT"Y"“BUSHELS PER 


PRINT"HOW MANY ACRES DO YOU WISH TO BU 


INPUTG. IFQ<OTHEN1190 

IFY#Q< =STHENS40 

GOSUB1090 

GOTO490 

IFQ=OTHENS 70 

A=A+Q.S5=S-Y#Q°5C=0 

GOTOG30 

PRINT: PRINT"HOW MANY ACRES DO YOU WISH 


TO SELL “; 


980 
390 
600 
610 
34 


INPUTQ: IFQ<OTHEN1190 
IFQ<ATHENG2ZO 
GOSUB1130 

GOSUBS70 


G20 A=A-G:S=S+Y#Q:C=0 

G30 PRINT 

G40 PRINT"HOW MANY BUSHELS DO YOU WISH TO 
FEED YOUR SLAVES"; 

650 INPUT 

G60 IFQ<=0THEN1190 

G70 IFQ<=STHEN700 

680 GOSUB1090 

690 GOTO640 

700 S=S-Q:C=1:PRINT 

710 PRINT“HOW MANY ACRES DO YOU WISH TO PL 
ANT "3 

720 INPUTD: IFD=OTHEN8SO 

730 IFD<OTHEN1190 

740 IFD<=ATHEN770 

750 GOSUB1130 

760 GOTO710 

770 IFINT(D/2)<STHENSOO 

780 GOSUB1090 

790 GOTO710 

800 IFD<=10#PTHENS40 

B10 PRINT"BUT YOU HAVE ONLY"P"SLAVES TO TE 
ND THE FIELDS. NOW THEN, 

820 GOTO710 

830 S=S-INT(D/2) 

B40 S=S-INT(D/2) 

850 GOSUB1170 

B60 Y=C:H=D#Y:E=0 

870 GOSUB1170 

880 IFINT(C/2)<>C/2THENSOO 

B90 E=INT(S/C) 

900 S=S-E+H 

910 GOSUB1170 

920 I=INT(C#(ZO#A+S) /P/10041) 

930 C=INT(G/20) 

940 Q=INT(10#(RND(2)-.9)) 2 ¥SC+17 

950 IFP<CTHEN240 

960 D=P-C:IFD>.45#PTHENSSO 

970 P1=((Z2-1)#P14+D#100/P)/Z 

980 P=C:D1=D1+D:GOTO260 

990 FORX=0TO3S: PRINT NEXT 

1000 PRINT:PRINT: PRINT: PRINT 

1010 PRINT:PRINT"YOU STARVED"D"SLAVES IN O 
NE YEAR!!! 35 


LO2ZG PRIN 

1030 PRINT"DUE 72 Is 

YOU NOT ONLY HAVE BEEN 

1040 PRINT"PROFOTED TO 

HONONED BY YOUR PEERS, 

1050 PRINT . 

1O0GO0 PRINT"BUY YCU HAVE BEEN UNANIMOUSLY E 
LECTED ‘SUPREME AYATOLVLAR ’ “ 

1070 GOTGi520 

1080 PRINT OPRINT 

19090 PRINTIPRIN] 

1100 PRINT"AYATOLLAH-CANT YOU THINK 

1110 PRINT“YOQU HAVE ONLY"S"“BUSHELS OF GRAI 
N. NOW THEN," 

1120 RETURN 

1130 PRINTOPRINT 

1140 PRINT"AYATOLLAH-DONKEY: TRY TG THINK" 


we 
tit 


HORRIGLE STUPIDITY 


A HIGHER OFFICE AND 


1150 PRINT". YOU ONLY HAVE"A"ACRES. 

1160 RETURN 

1170 C=INT(S#(RND(O)+1)) 

1180 RETURN 

1190 PRINT. PRINT“AYATOLLA-KRETCH: I CANNOT 
STAND YCU ANY LONGER 

1200 PRINT"GET YOURSELF ANOTHER SUCKER. I 


1210 GOTO1Si0 

1220 PRINT" IN YOUR"Z-i"YE R TERM IN GFFICE 
“PL"PERCENT OF THE 

2290 PRINT"POPULATION STARVED PER YEAR ON 
AYERAGE, I.£.7A TOTAL OF" 

1240 PRINTDI"SLAVES DIED!!! "I Li=A/P2CCH=S/P 
»L=L1+(CC/26) 

1250 PRINT"“YOU STARTED WITH'AA"ACRES PER S 
LAVE AND ENDED WITH 

i260 PRINTLi"ACRES PER SLAVE, 

1270 PRINT"YOU STARTED KITH"BE"BUSHELS PER 
SLAYE AND ENDED WITH" > PRINT 

i280 PRINTCC"BUSHELS PER SLAVE." = PRINT 
1290 FORT=0TG20000;2 NEXT 

1300 IFP1>33THEN1O0O0 

1310 IFL<7THEN1000 
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3320 GFPLS1OTHENT 420 

1330 IFLEOTHENIT 420 

1340 TFPi>S3THENI4G60 

13950 IFLZiOTHENI 460 

iSEOQ FORT=OTOQSS!IPRINT oNEX 

1970 PRINTIPRINTTAB( 15) "CONGRATULATIONS": P 
RINT 

i3B0 PRINT"AFTER CHANGING YOUR RELIGION YO 
U BECAME HUMAN 

1390 PRINTIPRINTTAB(C1S) “See eenneaeeeenaeaa 
PRINT 

1400 PRINT IPRINTTABC1LO) "YOU WERE A FANTAST 
IC LEADER 

1470 PRINTSPRINT SGOTOLS10 

1420 PRINT"YOUR HEAVY-HANDED PERFORMANCE S 
MACKS OR NERO AND SOME" 

1430 PRINT"OTHER TERRISLE PEOPLE 

23440 PRINT"THE SLAVES CREMAINING) FIND YOu 
AN UNPLEASANT RULER AND, 

1450 PRINT"FRANKLY, RATE YCUR GUTS: ":GOGTO01 
SiG 

1460 PRINT"YOUR PERFORMANCE COULD HAVE BEE 
N SOMEWHAT BETTER, BUT" . 

1470 PRINT"REALLY WASN‘T TOO BAD AT ALL. “ 
1480 PRINTINT(P#(RND(.8))) "SLAVES WOULD 
1490 PRINT"DEARLY LIKE TO SEE YOU ASSASSIN 
ATED BUT WE ALL HAVE OUR" 

1500 PRINT"TRIVIAL PROBLEMS.” 

1510 PRINT 

1520 PRINT 

1530 END 
OK 
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BALL TANCE - This grerhics fFrogram causes 2 
number of balls to “dance” ground the 
screen. The Frogram demonstrates? 


1) Animation - halls move around the 
screen. 
2) Frogrammability - you can “Frogram” 


each ball to make certain moves. 

3) Multidimensionalitsys - there can be meny 
balls» each with its own set of moves. 
To do thiss the Frogram uses a three 
dimensional array. 


The Frogdram first asks you for the number 
of tFalls in the dance. Then for each ball 
it esks? 


A) the number of sters in the cycle 
for this ball’s dance 

BE) the horizontal and vertical dis- 
Flecements for each of the dance 
sters. 


The Frogram will then diseley the dance of 
the balls. 


FROGRAM EXFLANATION: 


LINE TNESCRIFTION 
20 Clears screen 
30 Initializes variables for 
screen 
50-60 Ineuts number of balls and 
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dimensions array accordingly 


70-150 Loors through for each bal] 
70 Establishes random start- 
Ing Foastion (F(I)) 

90-100 Infuts number of movements 
110 Loors for each movement 
130-140 InFtuts horizontal end vert- 

lIcal disrlacement 

160 Clears screen 

170-240 Loors for each ball» goes 

to next ster (C(IJ=C(I)41) 

180 If last ster in dance 
return to ster 1 

190 Finds new rFosition from 
formuls:? 


New Fosition=old rosition 
+ horizontal ster + (vertical 
ster X width) 

200-210 If new rosition is out of the 
screens go back to tor ar 
bottom of screen 


NOTE? These checks @e@re vers imrFortant. 
Thes Frevent the Frogram from 
destroying itself. 


220 FOKES new ball erasitian and 
blanks out old rosition 
230 Sets old ball Fuosition eaualto 


the new Fosition for next 
time through loor 

290 Goes back to another § disrFley 
of the balls 


VARIABLES; 


C(I) = Actual index for tall I 

F(I) = Actual rosition for ball I 

S(I»eJe1) = Horizontal movement for ball I>» 
movement J 

S(IsJe2) = Vertical movement for ball I>» 
movement J 30 


FOR EXAMPLE? 





-2 -1 Oo 1 2 


Ster (A) is 192 
Ster (B) is -1s-1 


Ster (C) is -292 


IF sou want the ball to stay in its 
Flaces¥ou may enter Or0. 


When 3211 the sters for 2ll the balls have 
been entereds the Frogram will hesin the 
dance, 


10 REM BALL DANCE 

20 FORK=1TO902 PRINTS NEXT 

30 LO=S3318°HI=54296 WID=32 

40 L=HI-LO?STK=226 

30 INPUT"HOW MANY BALLS">N 

GQ DIM S(N,10;,;2),T(N),PCN),CCN) 


40 


70 FORI=1TONIPCII=IN?T (RND( 1) #L)4L0 

BO PRINT 

90 PRINT“HOW MANY MOVEMENTS FOR BALL #"71 
1900 {INPUTTCI) 

110 FORJ=!1TOT(T) 

120 PRINT 

130 PRINT“ENTER H AND YW FGR BALL": 13 "MOVEM 
ENT" J 

140 INPUTS(1I,J,1),5¢1;,J5,2) 

1350 NEXTS,I 

160 FORX=1TO3Ol PRINT I NEXT 

170 FORI=iTON.C(I)=CC(C i) +1 

180 IFCC1I)+TC(L) THENC(I)=1 

190 NP=P(I)+S(1,C(1I)-1)4WID#S(1I,C(°1)52) 
200 IFNPSHITHENNP=NP-L 

210 ITFNP<LOYHENNP=NP+L 

220 POKENP, FKIPOKEP(I),32 

230 PCI) =NP 

240 NEXTI 

250 GOTOi70 


Black Box 


THE BLACK BOX - In this gamersthe erleyer 
hunts for 2a number of atoms randomly Fleced 
in 2@ 2-dimensionals 9°N9*%, Ilattice. The 
Frogram Ffrovides 2 mobile cursor = which 
resrFonds to keys 1 through 4 by moving uF» 
downs and beck end forthe resrectively. 
With this cursory the Flayer is able to 
hunt for these atoms with a Jlisht-bean,. 
Ney 5 fFrovides the light-beam. The Flayer 
must beware of multirle reflections. 


10 CLEAR 
20 FORGQ=1TO302: PRINT 2 NEXT 
30 PRINT" WELCOME" 
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42 


40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
TO037 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


PRINTS PRINT: PRINT: PRINT: PRINT: PRINT 
FORT=1T015002 NEXT 
FORQ=1TO030: PRINT: NEXT 
PRINT" CALCULATING" 
PRINT. PRINTS PRINTS PRINT: PRINT: PRINT 
DIMA(10,10) 
FORTI=OTO1LOSFORJ=OTOLOLA(J,1I)=0 
IFI=OORI=100RJ=OORJ=10THENA( J,1I)=2 
NEXT JONEXTI 

N=1 

FORQ=1TO30. PRINT NEXT 

INPUT"HOW MANY ATOMS SHOULD I HIDE";xX 
IFX<B1THENIBO 

PRINT"X SMALLER 81 PLEASE" -GOTO15S0 
FORI=1TOX 

K=INT(RND(10)#9+41). J=INTCRND(20) #9+1) 
IFN=2THEN230 

IF J=eLORJ=9ORK =10RK =STHENN=N+1 > GOTO190 
IF J=100RK=10THEN190 

IFA(J*/K) =STHEN190O 

AC JSrK)=9 

NEXTI 

FORQ=1T0O30. PRINTS NEXT 

$=53341 

FE=542867 

ST=64 

Q=0 

FORI=STOFESTEPST 

N=0 

IFQ=O0ORQG=20RQ=120RQ=14THEN400 
FORJ=10TOZ6STEP2 
IFQ=10RQ=13THENPOKE(I+J),49+N:2N=N+1.G0 
0 

POKEI+J,91°POKEI+J+1,93 

NEXT J 

IFQ<30RQ>11THEN400 

POKEI+7,46+Q@: POKEI+30, 46+@ 

Q=Q+1 

IFQ=1S5THENQ=0 

NEXTI 

POKES30,1 
MO=0:2AL=0:QT=32°QU=32:°HT=2 
PL=53477°2HN=53477 


466 
470 
480 
490 
500 
510 
S20 
330 
340 
S50 
360 
570 
580 
390 
B00 
G10 
G20 
630 
640 
6350 
G60 
670 
GSO 
650 
700 
710 
720 
730 
740 
750 
760 


TO830 


770 
830 
780 
790 
> K=K 
600 
7K=K 
810 
830 
B20 
B30" 


POKES 086,127. 5E=PEEK (57088) 
IFHT=OTHENPOKES3434,161 
IFHT=27HENPOKES3S4934, 32 

IF TE=127THENMG=MC- 1 

iF TE=19i THENMO=MC+1 
IFTE=223THENAL=AL~1 
ZFTE=239THENAL=AL+1 
IFTE=247THENG40 

IFMO< OORMO> LOTHENMG=5 -GOTO4G0 
IFAL< OGRAL > 1OTHENAL=0 
2X=PL+G644MO+22AL 

IFPEEK (2%) =91ANDHT=2THENMO=102AL=10 
POKEHN, QT. POKEHN+1,QU 
HN=PL+™40#64+28AL 
QT=PEEK CHN) SQU=PEEK (HN+1) 
POKEHN, 62°. PCKEHN+1,60 
FORTI=1TO2GOINEXTI 

COTO460 

IFMO=OANDAL=190THEN4GO 
ITFMO=i10ANDAL =i OTHEN4GO 
IFMO=OANDAL =OTHENBSO 
IFMO=10ANDAL =OTHENSGO 
IFHT=OTHENS8O 
IN=PL+MO#64+4L #2. POKEIN,5:POKEIN+1,7 
A(MO,AL)=7 


IFAL=iOTHENJ=MOCK=9°C=0.D=-1 
IFAL=OTHENJ=MO.K=12C=07D=1 
IFMO=OTHENJ=1 °K =AL.C=1-.D=0 
IFMO=1OTHENJ=9°KSAL(C=-12D=0 


N=6 
IFAC I,K) =90ORA( I,K) =S9OTHENGOSUB1140 700 


IFAC S/K) =2THENA(C S,K)=72GOSUB1150 -GOTO 


U=ABS(D) -YV=ABS(C) 
IFAC J+U, K+) =S0ORA( JtU,K+V) SSOTHENJ=J-C 


-DiC=-U!D=-V 


IFA( J-U,K-V) =9ORA( J-Ur K-V) =SOTHENJ=J-C 


-D°C=UlD=V 


IFA( J,K)=7THENPOKEIN, 3S. POKEIN+1,7-.GOTO 


JeJ+C OK =K+D° CGOTO7GO 


MO=O.AL=9 43 


B40 
B50 
860 
870 
B80 
B90 
900 
910 
920 
930 
»#10 
940 
950 
960 
970 
980 
990 
WN+i,+ 
1000 
1010 
1020 
1030 
1040 
G." 
1050 
1060 
1070 
1080 
19090 
1100 
11i0 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
OK 
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GOTCSIO 

IFHT=OTHENHT=2°>GOTO4G0 

HT=0 

GOTO4G6O 
IFMO=OORMO= i OCORAL =OORAL=10THEN4SGEO 
POKES3498,181 | 

P7=PL+MO#G4+AL #2 

RS=QT 

TFRS=42THENIiO9O 
POKEP7,42,PCKEP7+1,42°7A(MO-,AL}=A(MG;AL 


GOTOS9O 
WR=O 
FORTI=1TO9 FORJ=i 709 
VN=PL+I1#64+ 542 
IFPEEK (WN) =42THENYZ=Y2+i 
IFAC I,J) =QOTHENWR=KWR+1 2 PGKEYN, 161 2.PCKE 
1G1 
IFAC I,J) =STHENPOKEYN, 1612POKe."'+1,161 
NEXTJ:SNEXTI 
IFY2-X SOTHENPRINT "CHEAT..." 2.GOTO1050 
IFWR=XTHENPRINT"WELL DONE “2GOTO1050 
PRINT“HARD LUCK, YOU HAD "7; K-WR:" WRON 


INPUT"WANT AGAIN"; WS 
YZ=0 

IFWS="Y" THENIO 
POKES30,0 

END 
A(MO,AL)=A(MO,AL)/10 
POKEP7,91:2POKEP7+1,93 
POKES3576,32 

GOTOS90 

POKEIN, 187: POKEIN+1,187°RETURN 
EX=PL+64#J+K#2 
FORT=17TO10 
POKEEX, 32. POKEEX+1,32 
FORO=1TOSOSNEXTO 
POKEEX,S:POKEEX+1, 7 
FORO=1TOSOONEKTO 
NEXTI 

RETURN 


Concentration 


CONCENTRATION - A card game that tests your 
@bilits to concentrate, You are atteme ting 
to choase each of the cards in 2 deck 
without durlicetion. If sou choose’ the 
seme card twicer you lose Froints. 


£0 REM CONCENTRATION 

20 FORX=1TO30!PRINTINEXT 

30 PRINT"IMAGINE YGU HAVE A PACK GF CARDS. 
40 PRINT"PICK A CARD" 

50 PRINT"EITHER OF A CERTAIN SUIT" 

GO PRINT" OR OF A CERTAIN VALUE." 

70 PRINT 

80 PRINT“IF YOU CHOGSE A NEW CARD YOU SCOR 
E MORE POINTS," 
90 PRINT “BUT I 
100 PRINT“ SELEC 
Dp" 

110 PRINT"YOU LOSE POINTS." 

120 PRINT 

130 PRINT 

140 DIM P(4,13),N$(13),S%(4),T(4)7S(19) MS 
(13),T$(4) 

iSO FORI = i TO 4 

160 FOR! = 1 TO 13 

170 P(IrJ)=0 

180 NEXTJ 

190 NEXTI 

200 FORI=17T013 

210 READ NS(1),M$(I) 

220 S(I)=0 

230 NEXTI 

240 FORI=1T04 


r YOU TRY TO" 
fT A CARD THAT’S ALREADY USE 
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250 READ S$(1I),T$(1) 

260 TCid=0 

270 NEXTI 

200 DATA "ACE", “AN ACE", "TWO" "A THO", “Th 


REE", "A THREE", "FOUR" 


290 


CATA 


"A FOUR", "FIVE", "A FIVE", "STK", "A 


SIX", "SEVEN", “A SEVEN" 


300 


DATA 


"EIGHT", "AN EIGHT", “NINE","A NINE 


"S"TEN', "A TEN," SACK" 


310 DATA “A JACK", "QUEEN", "A QUEEN", "KING" 
r"A KING" 

320 DATA "CLUB". "CLUBS", "DIAMOND", “DIAMOND 
g" 


46 


330 DATA “HEART”, "HEARTS", "SPADE" +"SPADCS" 


340 FCRZ=1TO0S2 

350 K=INTC(CLO3#RND(1)+1) 
360 IFX2S2THENGOG 

370 K=K-GQHINTOX/ 4) +1 
380 [FT(CK) 12 TRENG70 


390 PRINT"ENTER A "7FS$(X) FTABCZS) + 


400 INPUT RS 

410 FORT=17T013 

420 IFRS=N$(1) THEN4S8O 

430 IFRS=M¢(1> THEN4SBO 

440 NEXTI 

4950 PRINT" MISTAKE ! TRY AGAIN" 
460 PRINT 

47u COTO390 

480 IFP(XK.1)=1THENSSO 

490 P(X,1)=1 

SOO KEK+T(X)+1 

910 S(T)=S(I)+1 

320 T(KI=T(X) +1 

930 PRINT"O.K. SCORE = "“;K 
940 GOTOB30 

350 K=K-(20-T(X)) 

960 PRINT 


39790 PRINT" ALREADY USED ! TRY AGAIN" 


980 PRINT 

990 GOTO3SO 

GOO X=K+1-138# CINTC(K/S193)) 
Gi0 IFS(X) s>3THENGOD 


Gea 
dy 
630 
640 
G6S0 
G60 
670 
680 
690 
700 
7iO 
720 
730 
740 
750 
766 
770 
7B0 
790 
B00 
B10 
B20 
830 
B40 
650 
860 
870 
880 
89% 
900 
910 
920 


OK 


PRINT"ENTER THE SUIT GCF "SM$CK) TAB (25 


INPUTS 

FORI=i1TO4 

IFR&=S$CL) THENTZLO 
LFRE=TE( 01) THENTLO 
NEXTI 

PRINT” MISTAKE : TRY AGAIN" 
PRINT 

GOTOb2Z9 

IFPCI,K) =1THEN786 
P(I,X)=1 

K=K4+S 0X) +1 

S(X)=S¢X) +1 

TCT} ETCL) +i 

PRINT"O.K. SCORE = “3K 


GOTO82a2 
K=K-(10-S(x)) 
PRINT 


PRINT" ALREADY USED ! TRY AGAIN" 
PRINT 

GOTOG20 

NEXKT2Z 

PRINT 

PRINT 

PRINT" THAT’S ALL !" 

PRINT 

PRINT "YOUR FEiNAL SCORID iS";K 
PRINT SPRINTS PRINT 

INPUT"DO YOQU WANT TO TRY AGAIN", YS 
IFLEFTS (YS, i=" V"THENZO 

END 
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Magic Square 


MAGIC SQUARE - In this game you fut numbers 
in @ seuares then arrande them so thet the 
sum Of each rows calumny and diagonal» 
eauals 15, 


190 REM MAGIC SQUARE 

20 FORKX=1TOSG.2PRINT ONEKT 

30 PRINT"INSTRUCTIONS: YHE PLAYER SELECTS 
A NON-USED NUMBER" 

40 PRINT"BETWEEN 1 AND © AND PUTS IT IN AN 
EMPTY FIELD OF THE“ 

SO PRINT'MAGIC SQUARE." 2 PRINT 

GO PRINT"THE OBJECT OF THE GAME IS TO ARRA 
NGE THE NUMBERS SUCH" 

79 PRINT" THAT THE SUM OF EACH ROW, COLUMN, 
AND DIAGONAL IS 15." 

80 PRINT" THE PLAYER THAT SETS THE FIRST NU 
MBER GIVING A WRONG" 

90 PRINT" TOTAL, LOSES." SPRINT 

100 PRINT" THE COMPUTER WILL ASK QU EACH T 
IME, IN WHICH POSITIUN" 

110 PRINT"YOU WANT THE SELECTED NUMBER. € 
NTER ’2,5’° IF YOU WANT" 

120 PRINT" TO PUT AS IN POSITION 2. THE P 
OSITIONS ARE NUMBERED" 

130 PRINT"FROM TOP LEFT TO 8OTTOM RIGHT: 1 
23, 456, 789." 

140 CLEARS GOSUBGOO 

150 PRINTIINPUT"YQUR ROUND ! ----LOCATION 
AND NUMBER"; I,N 

160 IFI<10ORI>9ORN“ 1ORN=9THENI8O 

170 TFACI) =OANDB(N) =OTHENI9O 

180 PRINT? PRINT"WRONG ENTRY!...TRY AGAIN". 
GOTO150 

190 ACTI)=SNIBCN)=1IM=M+1 

200 GOSUBGOO 
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210 
220 
230 
240 
250 
260 
270 
230 
290 
300 
3190 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
4Go0 
470 
4B0 
490 
300 
310 
320 
930 
340 
350 
3GO 
370 
380 
990 
600 
G10 


GOSUB450 
IFWEOTHENZ40 
PRINTIPRINT"SGRRY, YOU LOST! ":G0ro4azo 
TEMS S THEN SSO 
PRINT"FPESFE"2G0TO4aZ6 
FORQ=1TOS 

IFA(Q} SOTHENDEO 
FORR=1TO9 

IFB(R) SOTHEN340 
A(QIER 

GOSUB 450 

IP W=EOTHEND 70 
Q1=QIRI=ERIK=OIA(Q) =a 


NEXATR 

NEXTQ 

W=TCR=R1°Q=Q27A(Q)=R 

B(R)=1 

PRINTIOPRINT'I FUT A"'R"IN POSITION"G 


GOSUBGOO 

IFW=OTHENISO 

PRINT"I’VE LOST ---~ YOU‘VE WON!" 
INPUT" DO YOU WANT TO PLAY AGAIN "; S$ 
IFLEF TS (¥$,i)="¥"THENQO 
IFLEFTS(Y$,1)="N"THEN END 
FORX=1708 
ONXGOTO470, 480, 490,500,510,520,530 
J= 12K=22:L=3:G0TO540 
»-L=7:GOT0S40 

9:GOTOS40 

=6.-GOTOS40 

=7 2 G0TOS40 
=9°GOTOS40 

8: GOTOS540 

=OGRA(K) =OGRA(L) =OTHENSBO 
IFAC JI+A(CK I +A(LISFLOTHENSSO 
NEXKTX 

GOTOS90 

W=1 

RETURN 

PRINT: PRINTTAB(2Z5)A(1)7A(2)7AC3) 
PRINTTAB(25)A(4)7A(5)7A(G) SPRINTTAB(25S 


1A(7)7A(8)7A(9) SPRINT? RETURN 


620 


END 49 





MICKEY MOUSE - 


Ficture of your favorite Thisney 


Mickey Mouse! 


iO FOR T=i TC 
20 PRINT" THIS 
3a FOR T=1 To 
4G FOR T=1 TO 


Mickey Mouse 


Take 2 guess! This 


GGIPRINT ONEXT 


1s 2 


Character » 


PROGRAM DRAKS MiCKeY MOUSE" 


2SG0CNEXT 
SOO PRINT ONEXKT 


SQ PRINT "“ssss22=ss25255 5555555552555 55555= 


GO PRINT" 
Hae aa" 

7QO PRINT" 

HHH ase 

BO PRINT" 
HER 
90 PRINT" 

HHH HE" 
100 PRINT" 
HHH 
110 PRINT" 

HHA He" 
120 PRINT" 

o HHH HEHEHE 
130 PRINT" 
oH HE eM 
140 PRINT" 

oo tH HTH HH" 
150 PRINT" 

oo HE" 

i60 PRINT" 

oo HH" 

170 PRINT" 
eee ee eH" 


i180 PRINT" 
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HHH 


HHUIHHHRAH 


RHEHHHPAHHHH 


HAHHRRRRHHAHH 


HAHHRHHRKHAHH 


HHAAHHKRHHHHHHHHHBHEA 


HHHHAHHHRHHH, 


HHUHHHHRHHH., 


HHHHHRHH WHE, 


HR, 


HHe. 


Hw ee 


Hee eu ane 


igo PRINT" 
eve we oe" 
200 PRINT" 
rr 


210 PRINT" 
HH ew cn nak” 
220 PRINT" 
Hecens nt" 
230 PRINT" 
ween et" 
240 PRINT" 
vee 

250 PRINT" 
. oe 
260 PRINT" 
PRINT" 
PRINT" 


te. 


#, 


He. 


oo HHH HHH 


ween oe HEHEHE 


oo HHH 


eaneten 
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Space Shuttle 


SFACE SHUTTLE - You are attemeting to land 
on earth in 2 sraceshir. Fuel» velocity» 
and distence ere given and the Flayer must 
determine the amount of thrust necessary 
for 2a smooth landing. After each “?” you 
must tyre in a thrust command number 
between O and 500. 


io REM SPACE SHUTTLE 

290 FORK=OTOIS SPRINT INEXT 

JO PRINT AR SHGK EMRE RHE RHR SHEHR ESRD 
HHRHAAHSHHHAS EMER HEMHHS HHH HD 

£0 PRINTIPRINT 

SO PRINT"YGU HAVE SUSGT DEPARTED A SATELLIT 
[ oi 

GO PRINT"“AND ARE DESCENDING BACK TO EARTH" 
790 PRINT“ AFTER EACH ? TYPE IN A ROCKET THR 
UST 

80 PRINT"COMMAND AS A NUMBER BETWEEN ©& AND 
500 

90 PRINT“YNITS(CEACH UNIT=200 NEWTONS=900 L 
BS. OF THRUST 

100 PRINT"“----------GCOD LUCK-~-~-------- 
110 PRINTIPRINT ; 

127QO PRINT" RHR EHHHRHHHHEHHHMAH HHH HHH 
He FE HEHE TE TE HE SESE HE TE TEE TE HE TE HE TE EE EE EE HEE SEE 

130 PRINTOPRINT: PRINT: PRINT 

140 PRINT 

150 PRINT"TIME: WELOCITY: LTITUDE: FU 
EL: TRRUST: 

160 PRINT"“SECONDS METERS/SEC KILOMETERS KI 
LOGRAMS NEWTON/ 100 

170 PRINT 

180 H=1:0 
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190 
200 
210 
220 
230 
240 
250 
260 


H=INT( (H-70) #RND(1)+70) 

S=5000 

E=10000 

T=0 

G=2.4 

GOTOZ2GO 

V=-100 

PRINTT; TAB(8) -Vs TAB(1S) 7H: TAB(30);E;TA 


B( 38) 3 "Fa"; 


270 
280 
290 
300 
310 
320 
330 


INPUTF 

IF ABS(F-250)>251 THEN 310 

IFF >ETHEN330O 

GOTO350 

PRINT" ILLEGAL THRUST--PLEASE REPEAT 
GOTO260 

PRINT"ONLY“;7E; "UNITS OF FUEL LEFT--PLE 


ASE REPEAT 


340 
350 
360 
370 
3860 
390 
400 
410 
420 
430 
440 
450 


RS UP 


460 
470 
480 
490 
300 
910 
920 
930 
940 
950 
960 
NDS 


GOTOZ60 

E=E-F 

V1=¥ 

YVZ=Z000#F /(StE)-10#1 
V=V4+V2 
D=(V14V2/2) #10 
H=H+D/1000 

IFH< =.01THENSOO 

IFE< =OTHEN4S0 

T=T+10 

GOTQ260 

PRINT“YOU ARE OUT OF FUEL"?H; “KILOMETE 


PRINT" IT WAS NICE KNOWING YOU 
PRINT? PRINT 

GOTOGOO- 

F=0 

K=0 

K=K+.1 

Vi=1 

V2=ZO#F/(St+E)-.14#1 

V=eVtV2 

H=H-(V14+V2/2)/1000 

PRINT" IMPACT IN APPROXIMATELY"; K; "SECO 
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570 PRINT“STANDBY" PRINT: PRINT 

580 IFY>=-STHENG40 

590 IFV>=-15THEN670 

GOO PRINT“CRUNCH!!! YELOCITY="V3 "M/SEC 

G10 PRINT" THAT ‘S";V#3.2#3600/5280; "MPH--OH 
BOY! 

620 PRINT"TURN IN YOUR LICENSE AT ONCE 

630 END 

640 PRINT"BEAUTIFUL LANDING V=";V#3.2*#3600 
/5280; "MPH 

G50 PRINT"YOU HAD“FE;"KILOGRAMS OF FUEL LE 
FT 

G60 END 

G70 PRINT"CLUNK--RATTLE--RATTLE--SQUINCH 
GBO PRINT"V= ";¥#9,.2#3600/5280; "MPH: ROUGH 
*BUT YOU SURVIVED 

G90 END 


OK 
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Tank in a Trap 


TANK IN A TRAF - This fFrogram moves 2 tank 
around within 2 walled seuare, There are 
two escare routes. See if the tank can 
find them, 


10 REM TANK IN A TRAP 

20 FORI=1TO302PRINTONEXT 

30 POKES7000,0 

40 0=53568.U=55040: POKEO, 204: POKEO+31,205: 
POKEU, 203 

90 POKEU+31,206.FORI=0+1T00+30:POKEI,131°N 
EXT 

GO FORI=0+64TOU-32STEPG4:POKEI,140:2 NEXT 
70 FORI=0+9S5TOU-1STEPG64: POKEI,139:2NEXT 

80 FORI=U+1TOU+30: POKEI,132°NEXT 

90 FORC=0TO29 

100 FORI=0+65+CTOU-G2+CSTEPG4: POKEI,1G1°NE 
XTICNEXTC 

110 W=1000 

120 P=INT(54033+10#RND(2))2D=1 

130 FORQGQ=1TOS50. NEXT 

140 GOSUB170~. IFP=S36340RP=SS006THEN35S0 

150 W=W-1. IFW<1THENSO 

160 GOTO130 

170 ONDGOTO220, 180, 260,300 

180 S=PEEK(P+63) -IFS=140THEND=4. RETURN 

190 IFS=Z03THEND=1-:RETURN 

200 IFS=132THEND=3: RETURN 

210 POKEP,32: POKEP+63, 253: P=P+63.RETURN 
220 S=PEEK(P-63) > IFS=131THEND=4-.RETURN 
2390 IFS=Z05THEND=3-RETURN 

240 IFS=139THEND=3:RETURN 

250 POKEP, 32: POKEP-63,249: P=P-63-RETURN 
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250 
276 
2B0 
290 
JO0 
310 
320 
3230 
340 
350 
360 
370 


OK 
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S=PEEK (P-G65) - IF SG=13i THEND=RAZ RETURN 
TF S=204THEND=4~2 RETURN 
IFS=1407HEND=2 (RETURN 
POKEP,Q2:POKEP--G5, 255! P=P- rue 
S=PEEK (P4+S5) 0 TF S192 "ENDER L RETURN 
IFS=20GTHEND=STRETURN 
IFS=1SO°HENDHES RETURN 

PCKEP, 32.2 POKEP+65,251 0. P=P+65.RE TURN 
PRINTIORINT SPRINT 

PRINT" TANK &€ SCA PE D" 
FORT=iTOLOCOINEXK™ 

GOTCi0 


Turnabout 


TURNABQOUT - In this games sou get N numbers 
(Nis defined aim line 40) aif 2 random 
seruence. Towinre sou must arrande the 
numbers ain mumerical order, This is 
accomplished by interchanging certain Farts 
of the list. 


Exame le? 
The List? 
5 4 3 2 1 re 


“<I 


Can be changed to? 
1 2 3 4 ha & 7 


tbe answering the euestion? “HOW MANY SHALL 
I TURN?” with? 5, 


i9 REM TURNABOUT 

20 FORQ=iTOQ0O. PRINT I NEAT 

30 DIM AZO) 

40 N=72REM CAN SE CHANGED 
39 ACL) FINTC(N-D7FRND (LD) +2 
GO FOR K=2 TON 

70 ACK) SINT (N#RND (C1) 42 

89 FOR vei TO K-34 

90 ITF ACK) =ACL) TREN 70 

i109 NEXT L 

iiG NEK™T K 

i120 PRINT 

£30 PRINT"THKE TCIST LOOKS AS =CL.OWS :" 
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290 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


OK 
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PRINT 

T=0 

GOSUB 360 

PRINT 

INPUT"HOW MANY SHALL I TURN";R 
IF R<=N THEN 220 
PRINTSPRINT"MAXIMUM IS";N7" fel" 
GOTO 170 

T=T+1 

FOR K=1 TO INT(R/2) 

Z=A(K) 

A(K)=A(R-K+1) 

ACR-K+1)=2 

NEXT K 

GOSUB 360 

FOR K=i TON 

IF ACKI<>K THEN 170 

NEXT K 

PRINT: PRINT: PRINT 

PRINT“YOU NEEDED"T"MOVES !" 
PRINT. PRINT .PRINT 

STOP 

PRINT 

FOR L=1 TON 

PRINT AC(L)> 

NEXT L 

PRINT 

PRINT 

RETURN 

END 


PERSONAL UTILITIES 


flollar Converter 

Calorie Counter 

Sreed vs. Gasoline Consumetion 
Gasoline Consume tion vs. Seeed 
German Vocabulary 

Astrology 

Intra-Ocular Lens Power 
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Dollar Converter 


DOLLAR CONVERTER - The dollar eauivalents 
of numbers can te obtained with this 


Frogram3 


10 
20 
30 
40 
90 
60 
70 
80 
90 
100 
110 
120 
1930 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 
OK 


les &S = $5.00 or «789 = $0.79, 


REM DOLLAR CONVERTER 
FORZ=1T035. PRINT SNEXT 
INPUT" AMOUNT"; X1 
GOSUBBO 
PRINTTAB(20-X3) 7X 
PRINTS PRINT SPRINT 


GOTO30 
X1SINT(X1#100+.5)/100 
XOSE""IX$E""IF=O | 


IFX1=OTHEN120 
IFX1<1THENXOS="0" CF =1 
X1$=STRS(X1) 
XZ2=LEN(X1$)-1 
X1$=MID$(X1%$,2,X2) 
FORTI=1TOX2 
X2$=MID$(X1%$,2,X2Z) 
X3=I 

IFK2$="."THENZ40 
NEXTI 

X$=",00" 
IFF=1THENX$="" 
IFLEN(X1$%) =ZANDF=1THENX$="0" 
GOTO250 

IFX3=(X2-1) THENX$="0" 
X$="S"+XOSt+X1LS+X$S 
X3=LEN(X$) 

RETURN 
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Calorie Counter 


CALORIE COUNTER - This exercise calculates 
the maximum daily caloric inteke to lose 2 
certain amount of weight according to sens 
heights weights and amount of daily 
exercise. 


10 REM CALORIE CALCULATIONS 

20 FORG=1T030:PRINT:NEXT 

30 INPUT"IS SUBJECT MALE OR FEMALE <M OR F 
"3S 

40 IFS$="M"THENBO 

50 M=-.0808 

60 B=37.5769 

70 GOTO100 

80 M=-.0846 

90 B=39.8 

100 INPUT"ENTER HEIGHT (INCHES) “+HT 

110 INPUT“ENTER AGE"7AG 

120 INPUT"ENTER WEIGHT (POUNDS) "FHT 

130 GOTO150 

140 PRINT “HOURS DO NOT EQUAL 24, TRY AGAI 
N" 

150 PRINT “INPUT HRS/DAY FOR EACH OF THE F 
OOLLOWING ACTIVITIES" 

1G0 INPUT"SLEEPING"?SL 

170 INPUT"SITTING";SI 

180 INPUT"STANDING";ST 

190 INPUT"WALK ING" WA 

200 INPUT“RAPID WALKING" ;RW 

210 T=SL+S1+ST+WA+RW 

220 IFT<>Z4THENI40 

230 INPUT"ENTER DESIRED WEIGHT LOSS IN POU 
NDS"$L 
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i 


/ 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


400 PRINT “WEIGHT (#)=",WT 

410 PRINT"“AGE=",AG 

420 PRINT 

430 PRINT “HRS/DAY SLEEPING=",SL,"“CALORIES 
=",Cl 

440 PRINT “HRS/DAY SITTING=",SI,"CALORIES= 
",C2 

450 PRINT "“HRS/DAY STANDING",ST,; "CALORIES= 
",C3 

4GO PRINT “HRS/DAY WALKING",WA, "CALORIES=" 
rC4 

470 PRINT"HRS/DAY RAPID WALKING",RW, “CALOR 
IES=",C5 

480 PRINT 

490 PRINT"DAILY CALORIES TO MAINTAIN WEIGH 
To",DC 

S00 PRINT 

510 PRINT "DESIRED WEIGHT LOSS(#)="-L 

920 PRINT "NUMBER OF WEEKS=",N 

330 PRINT “CHANGE IN CALORIES PER DAY=",CC 
340 PRINT 

S50 WT1=WT:DC1=DC 

5SGO PRINT: PRINT: PRINT 

370 INPUT"DO YOU WISH THE WEEKLY SCHEDULE 
(Y/N) "72% 

S80 IFZ$="N" THENEND 


INPUT“ENTER # OF WEEKS ";N 
PRINTSPRINT. PRINT: PRINT: PRINT 
SA=(WT%.425) #(HT*%.725)/99 
BMT=AG#M+B 

BM=BMT#SA 

DC=0 

Ci1=SL#BM 

C2=SI#(BM+(85-BM) #WT/154) 
C3=ST#(BM+(150-BM) #WT/154) 
C4=WA* (BM+(250-BM) #WT/154) 
CS=RW# (BM+(350-BM) #WT/154) 
DC=C1+C2+C3+C4+CS 
CC=L/N#500 

IFS$="M" THENPRINT "MALE" 
IFS$="F"THENPRINT"FEMALE" 
PRINT “HEIGHT CIN) ="lHT 


590 FORI=1 TON 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


OK 
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PRINT “WEEK NUMBER", I 

PRINT “WEIGHT “,WTi 

MC=DC1-CC 

PRINT“SMAXIMUM OF CALORIES",MC 
WT1=WT1-L/N 
SAL=(WT1% 425) 8 CHT*.725)/99 
BMI=BMT#SA1 

D1i=SL#BM1 

DZ=SI#(BM1+(85-BM1 )#WT1/154) 
D3=ST#(BM1+(150—-BM1 )#WT1/154) 
D4=WA#(BM1+(240--BM1 )#WT1/154) 
DS=RW#(BM1+(350-BM1)#WT1/154) 
DC1=D1+D2+D9+D4+D5 

NEXTI 

END 


Speed vs. Gasoline 
Consumption 


SFEEN VERSUS GASOLINE CONSUMPTION - If you 
want to know the total cost rer mile of 
oFerating your automobiles try this one, 
Enter the erice of gasolines rrice of the 
automobile, cost of insurances redistration 
feesr and extra costs rer sear. The 
Frogram calculates the total cost Fer mile, 


10 REM COSTS A MILE 

20 FORQ=1TO30°: PRINT 2 NEXT . 

30 C$="CHECK WHAT YOU ENTERED" 

40 PRINT"TOTAL COSTS A MILE" 

90 PRINT 

60 INPUT"AMOUNT AT LAST REFUEL";A 

70 INPUT"MILAGE INDICATION AT LAST REFUEL" 
r7K1 

80 INPUT"MILAGE INDICATION AT NEXT TO LAST 
REFUEL";K2 

SO IFK2>=K1iTHENPRINTCS: PRINTS GOTO70 

100 INPUT"PRICE OF THE CAR";P 

110 INPUT"ESTIMATED WORKING LIFE (YEARS) "; 
L 

120 IFLEN(STR$(L) ) >2THENPRINTCS. PRINT - GOTO 
110 

130 INPUT"“NORMAL INTEREST RATE (Z%/YEAR)"; I 
R 

140 INPUT"AVERAGE DISTANCE A YEAR";D 

150 INPUT" INSURANCE A YEAR"; IN 

160 INPUT"TAX A YEAR"; T 

170 INPUT"ESTIMATED EXTRA COSTS A YEAR";TE 
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180 PRINT 

190 AL=A/(K1-K2) 

200 AZ=(P/L)+(P/1O0#IR)D+IN+T+E 

210 A3B=A2Z/D 

220 A4=A1+A3 

230 FORG=1T090: PRINT NEXT 

240 PRINT" TOTAL COSTS A MILE ARE :" 

250 PRINT 

260 A4=INT(A4#100+.5)/100 

270 PRINTTAB(10)7A4;"$" 

280 PRINT. PRINT: PRINT 

290 INPUT"ENTER THE DISTANCE YOU WANT TO D 
RIVE";DI 

300 PRINT: PRINT: PRINT. PRINT SPRINT 

310 PRINT"THIS TRIP COSTS YOU" ;A4#DI;,"$" 

20 END 
OK 


66 


Gasoline Consumption 
vs. Speed 


GASOLINE CONSUMPTION VERSUS SFEED - If you 
wish to know the amount of gasoline rer 
mile which your automobile consumes? this 
Frogram will calculate its taking into 
consideration the weighty» srFeeds wind 
resistance on different kinds of vehicles» 
and tire resistance oan the road, 


10 REM GAS CONSUMPTION 

20 FOGRQ=1TOI0. PRINT = NEXT 

30 DEFFNACX)=INT(100#X+.5)/100 
40 PRINT"DATES OF YOUR CAR" 

90 PRINT 

GO INPUT"WEIGHT (POUNDS)"; 

70 G=G#.4536 

80 INPUT"WIDTH (FEET) ";>B 

90 B=B#.3048 

100 INPUT"HEIGHT (FEET)";H 

110 H=H#.3048 

120 PRINT: PRINT , 

130 PRINT"FORM OF YOUR CAR-ENTER ." 
140 PRINT"1,IF TRUCK" 

150 PRINT"2,IF BUS" 

160 PRINT"3,IF FULL SIZE OR SMALL" 
170 PRINT"4,I1F COUPE" 

180 PRINT"S,IF STATION WAGON" 
190 INPUTF 

200 PRINT: PRINT: PRINT 

210 PRINT"DATES OF YOUR TRIP" 
220 PRINT 

230 INPUT“HOW MANY MILES";D 

240 D=D#1.6093 

250 INPUT"WHICH SPEED (MI/HR)"-Y 


67 


260 Y=UH1.6083 

270 ZINPUT"HOW MANY PASSENGERS" ;>P 
280 INPUT"HOW MUCH BAGGAGE (POUNDS) "FL 
290 L=L#.45396 

300 PRINTI PRINT: PRINT 

210 PRINTIOPRIN’ © PRINT 

320 G=G+P#754+L 

330 A=B#H#.S 

340 DATA.8,.6,.47,.37.5 

350 FORQ=1TOF 

360 READC 

370 NEXTQ 

380 R=G#.015 

390 W=C# .O04B8#AHV/3.G#U/3.6 

400 B=(R+W)/1.54#D/1004%.8 

410 PRINT OPRINT <> PRINT 

420 PRINT"RESULTS 2" 


430 PRINT 
440 PRINT" TIRE FRICTION=“7FNA(R#2.2046)7"P 
OUNDS" 

450 PRINT“AIR RESISTANCE="7FNA(W#H2.204G)3" 
POUNDS" 


4GO PRINT"AT"F FNA(Y#.6214) 5 "MILES/HOLR" 
470 PRINT 

460 PRINTF OR" SF NACD#.G21437"MILES" 

490 PRINT"YCUR CAR witti CONSUME"; FNA( Be. 25 
42) 7"GAL" 

S00 PRINT'THAT IS" + FNACD/E%2.992)7>"4IT/GAL" 
910 T=D/¥V 

920 H=IN™(T) 

S30 MHINT(CT-4H)#E0+.5) 

340 PRINT 

SSO PRINT"DRIGVING TIME="74> "HOURS" MM: "MIN. 
S60 PRINT 

270 INPUT"RO YOU WANT TO TRY SMOTHER SPECTR 
(Y/N) "7 TS 

980 TFTS$="N"THENESO 

SOQ PRINT 

GOO INPUT"WHICH SPEED (MI/HRI"7Y 

Gio Yer .G093 

G20 PRINT: PRINT -GOTCS90 

630 PRINT"O.K. KAPPY MOTT eING : " 


646 ENE 
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German Vocabulary 


GERMAN VOCABULARY - With this Frogram you 
can learn German vocabulary. As you learn 
the words already in the Frograms you can 


enter new words to te Ilearned and store 
them an tare. 


20 FORX=1TO30O2PRINT = NEXT 

30 T=5°S=FRE(1)/200 

40 DIM ES(T,S),D$(T,S) 

SO READ N(1)+/N(2)-N(3)32N(4),N(95) 

GO FORK=17TOS 

70 FORI=iTON(K) 

BO READ ES(K,1),-D®(K,1I> SNEXTI -NEXTK 

90 PRINT“DO YOU WANT: “> PRINT 

100 PRINTSPRINT"G - GERMAN-ENGLISH EXERCIS 
E" 

110 PRINT.PRINT"N - ENTER NEW WORDS" 

120 PRINT: PRINT"S -— STORE ON TAPE" 

130 INPUTWS 

140 IFWS$="N"THEN1 70 

150 IFWS="G"THEN2GO 

160 IFWS$="S"THENSSO 

170 PRINTS PRINT: PRINT? PRINTSN(1)=N(1)+1 

180 IFN(1)>STHENPRINT"MEMORY FULL" = N(1)=N( 
1)-1:G0TO90 

i90 PRINT “FIRST THE ENGLISH WORD" 

200 PRINT: INPUT E%(1,N(1)) 

210 IFES(1,/N(1))="N"THENN(1)=N(1)-12 PRINT: 
GOTO9O 

220 PRINTS PRINT 

230 PRINT"AND NOW THE GERMAN" 2 PRINT 
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240 INPUT D$(1,N(1)) 

250 PRINTSPRINT:2GOTOi 70 

260 Z=-i 

270 PRINTS PRINTI PRINT: PRINT: Z=2+1:IFZ=10TH 
ENGOSU8450 

280 GOSUBE30 

290 PRINT" ";DS(M1+/N(M1));7"="5TAB( 28); 

300 INPUTAS 

310 IFAS="N"THENSC 

320 ITFASSES(M1,N(M1) ) THENPRINT -GCSUBS20:G0 
TO270 

330 PRINTIPRINT" THE CORRECT WORD IS:",TAB( 
20) 

340 PRINTES(ML/NCM1)) SPRINT SPRINT: GOSUBS70 
>GOTO270 

350 POKES7000,1.SAVE 


3GO PRINT" 1001 “7; "DATA"; 

370 FORI=1TO4~PRINTN( IT) - "+" CNEXTSPRINTN(S 
) 

380 TS$=",".2=1002.FOR K=1 TO 5S 


390 FOR I=1 TO N(K) STEP 2 

400 PRINTZ; "DATA" FES(K,1) + THs DS(KeI)> 

410 IFES(K,I+1)=""THENPRINTTS-ES(K,I+1)77TS 
?D$(K,I+1) <GOTO430 

420 PRINT 

430 Z=2+1.NEXTISNEXTK 

440 LIST-660 

450 FORI=1TO52: PRINTTAB(G#I-4) NCI) > SNEXT 
460 FOR I=1 TO 10° PRINT ONEXT 

470 IFN(1)>STHENPRINT" ENTER NEW WORDS! " 
480 PRINT. PRINT .PRINT 

490 IFB=OTHENPRINT" ALL i0 RIGHT-VERY GOOD 
*.GOTOS10 

300 PRINT" "FJ? "RIGHT";B;" WRONG" SPRINT. 
PRINT 

510 PRINT: PRINT: GOSUB6GO0:Z=0: J=O2;B=0-RETUR 
N 

S20 J=J+1i°IF M1=5 THEN N(M1)=N(M1)-1- RETUR 
N 

530 FOR I=N(Mi+1) TO 1 STEP -1 

540 ES(M1+1,1+1)=ES(M14+1,7) °DS(M1+1,1+1)=D 
$(M1+1,1) NEXT 


70 


990 


ES(M1+1,1)=ES(M1>N(M1)) > DS(M14+1,1)=DS$( 


Mi,N(M1)) 


560 
370 
S80 
990 
XT 
600 
610 
620 
630 
640 
650 
650 
670 
680 
690 
T 
700 
710 
BEN 
720 
L 
730 
740 
790 
760 
770 


OK 


NCM1+1)=N(M14+1)+1°N(Mi) =N(M1)-1 2 RETURN 
B=B+1.AS=ES(M1+/N(M1L)) SBS=DS(M1L/N(M1)) 
FOR I=N(1) TO 1 STEP -1 
ES(1,I+1)=E€9(1,-,1) .D$(1,1+1)=D$(1,1)2NE 


E$(1,1)=A$.DS$(1,1)=BS 

NCL) =NC1)4+1°N(0M1)=N(M1)-12RETURN 

END 

M=O0;FOR 221i TO 5 

IF N(I)>M THEN M=N(I) OM1=1 

NEXT I.RETURN 

FORTI=1TOSOOOCNEXT 

DATA G;2;,3,93,93 

DATA ALMOST;FAST,HASTEsHAST 

DATA SHODDY -WERTLOS PROTZIG,WORK;, ARBEI 


% 
DATA RUN,LAUFEN*+NEARBY,NAHE BEI 
DATA STUBBY,UNTERSETZT DICK -DITCH,GRA 


DATA WHIMPER; WINSELN, NOOK re SCHLUPFWINKE 


DATA CALF ,KALB 

DATA BUSH, BUSCH, HOST ,GASTGERBER 
DATA OVEN, BACKOFEN, ALMOST, FAST 
DATA SWAP, TAUSCHEN, YOLK, ,EIDOTTER 
DATA BULLET,KUGEL, GLOVE ,HANDSCHUH 
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ASTROLOGY? 


CALCULATION OF MC AND AS - The rositions of 
MC and AS are the two most imrorteant things 
In an exacts time-and-Flace referenced» 
horoscoFre, 


MC means “Medium Coeli”» or Medium of the 
Heaven, It ais the locetion of the 
eclirtics which is at the local meridian eat 
acerteain time. 


AS means “The Ascending’, It ais the 
location of the eclirtics which is rising 
@t the Astrological East horizon eat the 
same time. 


ARMC means “Ascensio Recta Medium Coeli’s 
the location of the heavenly eauators which 
is at the local meridian at thet time. 


Ineut? RB = Latitude? Enter 46.1322 for 46 
degrees 13° 22% 
R$ = N for Northern Latitudes S for 
Southern Latitude 
G = Time of Birth? Enter 18.13.07 
for 18h 13m 7s 


Formulas? 
For MC rosition:?: 
tan R = tan AR/cos E 
Tleclination of MC? 
sinl = sin MCX¥sin E 
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19 
20 
30 
40 
30 
60 
70 
BO 
90 
100 
110 
120 
130 
X1)) 
140 
4)+. 
150 
160 
170 
INT ( 
160 
190 
200 
210 
220 
230 
240 
290 
260 
270 
280 
290 
300 
310 
+90 
320 
330 
340 


AS Fosition? 


AS = tan(to the minus 1)(cos ARXsin 
ExXtan(Latitude-Dac)+MC+90) 


RE” CALCULATION OF MC AND AS 
FORQ=1TO30-2 PRINT. NEXT 

PRINT"POSITIONS IN DEGREES MIN SEC" 
PRINT 

PI=3.1415927 

U=PI/180.T=180/PI 
SE=SIN(23.45#U) ;CE=COS(23.45#U) 
INPUTE-R$,G1 
FORG=1TO30-. PRINT © NEXT 

PRINT"LATITUDE DMS ";R8;7e 

GOTO210 

REM CONVERSION TO DEGREES 
KX=K+1E-GeXi=CX-INTCK) RLOOTKS= (K1I-INT ( 
/.6 

XG=CINT (KI) +X2) /GOt+INT CX) OX4=INTCKGHITE 
3 

NEINTCK4S) /1E4 

RETURN 

YI=(Y-INT(Y) )#G600YS=((YI-INTCY1))#.6)+ 
Y1) 

YSO=CINT CY) +¥2/100) #1E4+.5 

Y=INTCYO) #1E-4 

RETURN 

x=B 

GOSUB130°B=X-  IFRS="S"THENB=B#-~-1 

X=G1 

GOSUB130.G=x% 

AR=G#15 

MC=ATN(TAN(CAR#U)/CE)#T 

IF AR>2Z70THENMC=MC+360 

IF AR>SOANDAR<=Z270THEN MC=MC+180 
D1=SIN(MC#U) #SE 
D=ATN(D1/SQR(1-D1%2) ) #T 
AS=ATN(COS(AR#U) #SE#TAN( (B-D) #U) )#T+MC 


IF AS>=360THENAS=AS-—360 
Y=MC 
GOSUBi70°MC=Y 
73 


350 Y=AS 

360 GOSUB170 

3790 AS=Y 

380 PRINT 

390 PRINT"BIRIM HMS"7G1;TAB(10)"MC.OMS">7A 
B(Z0)"AS.DMS" 

400 PRINT 

410 PRINT"ARMC";SPC(2)"GDEL": TA2( 11) Ave TAB 
(20)MC; TAB(2Z9) AS 

420 END 


OK 
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Intra-Ocular 
Lens Power 


INTRA-OCULAR LENS FOWER - The intra-ocular 
lens Fower reauiIred to to make any eye 
emmetroric is comruted,. Refractive error 
and arFhakic refraction is comeuted = and 
arrrorriate individual lens Fower tased on 
biometric data for surgical Frocedures is 
selected. Calculations are based on 2 4/3 
value for the refractive index of the 
cornea. 


10 REM INTRAOCULAR LENS POWER 

20 FORK=1TOSOS PRINT I NEXT 

30 INPUT"AVERAGE KERATOMETER READINGS (MM) 
"sK 

40 INPUT"AXIAL LENGTH (MM)";A 

50 INPUT" POSTGPERATIVE ANTERIOR CHAMBER DE 
PTH (MM)";D 

GO DE=1396#(4#K-A)/((A-D)#(4#K-D)) 

79 PRINT 

80 INPUT"SPECTACLE REFRACTION (DIOPTERS)"; 
SR ; 

90 INPUT"VERTEX DISTANCE (METERS) "7 

100 D1=133G6#(4#K-A- (Ve (4#K-A) +. OOG#K#A) #SR 
) 

110 D2=(A-D)#(4#K-D-(V#(4#K—-D)+.003#D#A) #S 
R) 

120 IP=D1/D2 

130 PRINT 

140 INPUT"DIOTROPIC POWER OF THE LENS (AGU 
EOUS)";DP 
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150 T=133G6#(4#K-A)-DP#(A-D)#(4#K-D) 

160 T1=1393968 (UH (4#K-A) +. OOSHAHK )-DP#(A-D) # 
(V#(4#K-D)+.003#D#K ) 

170 RE=T/T1 

180 PRINT.OPRINT SPRINT SPRINT SPRINT 

190 PRINT “AVERAGE OF KERATOMETER READINGS 
(MM) ="7K 

200 PRINT“AKIAL LENGTH (MM)="7A 

210 PRINT"POSTOP.ANTERIOR CHAMBER DEPTH (M 
M)="7D 

220 PRINT"D EMM=";DE 

2390 PRINT "SPECTACLE REFRACTION IN DIOPTER 
S="7SR 

240 PRINT “YERTEX DISTANCE (METERS) ="; 
250 PRINT“ INTRAOC.LENS POWER REG.TO CREATE 
REF .ERR.=";IP 

260 PRINT"DIOTR.POWER CF THE INTRACGC.LENS 
(AQUEOUS) =";DP 

270 PRINT "REFRACTIVE ERROR=";RE 

2B0 END 


OK 
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HINTS AND 
INSTRUCTIONS 


Tare/Disk - Disk/Tare Transfer 
Two Comruter Interface 

RS-232 to RS-232 
FOKE and FEEK 
Self-starting BASIC Program 
STOF 
Imeortant Tir 
USR(X) for Fast Screen Clear 
Another Fast Screen Clear 
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Tape/Disk - 
Disk/Tape Transfer 


TAFE/SINSK and DISK/TAFE Transfer 


To transfer a BASIC frosgram from tere to 
disk (and reverse) on a Challenger Cif with 
05650) V. 3 systems the following Frocedures 
Will reauire 2 terminal width oa* 132 
(normals if no conversions have teen made). 


A. Tare ta disk 


1. Tsre NEW (CR) 

2. Tyre NULLOS (CR) 

3. Tyee DISK!*I0 017 (CR) 

4, Start the recorder. (don’t worrs 
about garbage in the besinnins) 

&, Stor recorder 

6. Tyre LIST (CR) 

?o After the listings ture 


ISK! FUT (file mame)” (CR) 
BR, tisk to tare 


» Tyre ISK! *LOADN(File named” (CR) 

2, Tyre LIST#1 (no CR) 

+ Turn recorder to record: then hit 
CR 

Here you will get na listings tut 
an “OK” at the end of the record 

&. Turn the recorder off, 


fag Py 


a 
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Two Computer 
Interface 
RS-232 to RS-232 


TWO COMPUTER INTERFACE - RS-232 to RS-232 
Instructions 
To dume from C2-8F MF ta C2-4F Cassette? 


1. On the C2-GFs tyre LIST#s (RS252 
FORT number EXAMPLE? LIST#+3 

2. Qn the C2-4Ps tyre LOAD (CR) 

3. On the C2-SF MFe hit CCR) 


Ta dumre from C2-4F Cassette to C2-8F MF3 


1. Create a file ta dump to on the C2- 
SF MF 
» On the C2-8F MFy type NEW 
» On the C2-8F MFsy tyre 
NISK!*TQ(srace) (RS-232 FORT numbers 
terminal number dJEXAMPLE? DTSK!*I0 
04/02(For the ineut eorts use 2 
digits ¢ for the autreut Forts use 2 
Jisgits) 
4, On the C2-4Ps tyre SAVE (CR) LIST 
then ture ane srace 
3+ On the C2-8P MF hit (CR) 
&. On the C2-4Fs hit (CCR) 
7. On the C2-8F MFs ture 
Trisk!*FU(srace) (FILE NAME) 
EXAMPLE? DISK!IFU 


ta ho 
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POKE and PEEK 


FOKE ANT FEEK? 


FOKE - The oreratar stores an inteser Nin 
@ location W of memors,. An error ais 
rerorted if the rmumber ta be stored is aut 
of range, Frograms that unintentionally 
FOKE values into rages £00201 aor OP? can 
cause very Feculier errors 2s the run 
continuess eventually BASIC may tecome soa 
scrambled that RESET must be done, Since 
variables thet haven‘’t been defined have 2 
value of zeros address #9000 ais often 
ruined. Then if the (BREAK) key is hits 2 
warm start cannat te eccomelished, ofr 
courses exrressians can be arguments af 
FOKE,. 


Examele? ¥X¥44179Xt3 

FEEK(X) 
This is 2 functions not 2a command. But ait 
is the matural oarrosite of FOKE. FEEK 
returns the value (as 2 decimal integer 
between O and 255 inclusive) of the 
contents of address W, 
Examele? 

10 J=3 

20 PRPEEK(I¥254) 


RUN 
0 
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Self-starting 
BASIC Program 


SELF-STARTING BASIC FROGRAMN ~- When sou SAVE 
a rrasrams enter at the end of the Frosrame 
while the recorder is still recordings? 
Fnter FOKE 2451 3RUN<CR 

Similarly, sou can reset the SAVE flag? 


Enter FOKE 51790 <C> 
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STOP 


STOF 7 STOF causes an exit from the 
ammediate made with the erinting of 2 break 
MESES2Se. 


Exame le? 


20 FOR I=1 TQ 10 
JO IF IT=3 THEN STOF 
40 NEXT 


RUN 
BREAK IN 30 
OK 


Important Tip 


IMFORTANT TIF 


There will te times when you inadvertently 
hit “C’ instead of ‘W’ after wou hit the 
treak keys or sometimes 3 warmstart is nat. 
Fossible,. In some instances» it 1s 
Fossible to save your Fragram: 

After “MEMORY SIZE?*? 

Hit Break and “M” 

Hit */*” for TATA-mode 

Hit “CR%“9749°CR* 2A22°CR* »C32"CR* ABs *CR* 

Hit Break and “WW” 

Ry this you change the addresses in 0001 

and 0004, 
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USR (X) for Fast 
Screen Glear 


USR(X) RQUTINE FORK FAST SCREEN CLEARING- 
This 1s 2 rautine for fast screen cleering 
written for the SUFERBOARI, You simrels 
enter “X = USR(X)” to clear the screen 


10 
20 
30 
40 
8 
30 


RESTORE 

POKE11,S58:POKE12,2 
FORT=S80TOGO3: READE: POKET +E SNEXT 
DATA169,32,160,4,162,0,157,0,208; 232,20 


DATA250,238,76,2,136,208,244,169,208,14 


1,76,2,96 


OK 
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Another Fast 
Screen Clear 


ANOTHER “CLEAR SCREEN” ROUTINE - 
For the SUFERBEQARD Screen? 

100 For X=53318 to S4236tFOKE X»327NEXT 
For the Other Machines? 


Use the same formats but chande the 
Addresses, 
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USEFUL 
MATH ROUTINES 


USEFUL MATH ROUTINES - This charter 
contains 25 oaften-needed routines for 
mathematical functions. They can he used 
as subroutines or as stand-alone rFrograms,. 
The followings Frograms are conteined in 
this charter? 


1. 3/73 Tleterminant 
2. 4/4 Theterminant 
3. 5/75 lleterminant 
4, fleterminants of 
3/39 4/49 &/5 Matrix 
5. Matrix Multirlication 
6. Classical AdJunct 
7. Matrix Inversion 
8. Feculiar Velue of 3/3 Matrix 
9, System of Linear Eauations 
10. Co-ordinant Transformation 
11. Geometry 
12, Calculation of PI 
13. Number Converter 
14. Sorting (Binary Tree) 
15. Numerical Differentiation 
16. Numerical Integration (Simrson) 
17. Differential Eauation 
18. Fraime Factors 
19, Pethagorean Numbers 
20. Necibel Frogram 
21, Histograms 
22, Regression Analysis 
23. Simple Statistics 
24. Function Flot 
29. Freciritation 
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Determinant Programs 


DETERMINANT FROGRAMS - The first four 
Frograms calculate determinants, The 
firsts 2 3 times 3s the seconds # 4 times 
49 the thirds a & times 5S? matrix. The 


fourth Frogram gives the artion o* the stze 
of the matrix. In all of these Frosramss 
the numbers of the matrix must he entered 
by lines. 


1. 3/73 Theterminant 


10 REM 2/73 DETERMINANT 

20 FORQ=1TO30°2 PRINT OS NEXT 

3O PRINT"MATRIX Y(3,3)" 

40 PRINT 

20 FORJ=1TO3 

6O FORK=1TO3 

7O INPUTY(J,°K) 

80 NEXT K 

90 PRINT 

100 NEXT J 

110 DCLI=A¥N(1,1) #Y¥(2,2) #Y(3-9) 
120 D(SI=AN(L J #V¥ (2,1) #V¥(9r2) 
1390 D(4d =H¥(3-1#Y(2,2)8°(173) 
140 D(SIA¥(3B,2)#Y (2,3) #Y (1-1) 
150 D(GIFH¥(3,3)#¥(2,1)#¥ (152) 
160 D(2Z)=¥(1,2)8#Y (2,9) #V(371) 
170 E=D(1)+D(2)+D(3)-D(4)-D(5)-D(G6) 
180 PRINT 

190 PRINT"DETERMINANT OF Y" 
200 PRINT 

210 PRINTE 

220 END 
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90 


ate 
20 
ao 
EG 


ea FQ 


fat 

3a 

90 

100 
iiQ 
120 
130 
140 
150 
160 
170 
i8o 
190 
290 
210 
220 
230 
240 


.290 


=60 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


lleterminant 


& 
f ~N, 
. 2 


IZ a ao ee te 


63 GETSNM INAS 
2TOLUIPRINTE INERT 


it f> 


Al: 
@ 


“MAFRTA ROS 24a" 


zoDns 
a] bh bet Be 

i 

+ 


=siltypa 
FORKS. 7O4 

INPUTKO GAN) 
NEXT & 

PRINT 

NEXT 

A=1 

FORK =1704 

FORJ=2TO4 

FORL=17O04 

IFL=KTHENI SO 

B=B+i 

YCA,BIEXCJSrL) 

NEXT L 

B=0 

A=A+i 

NEXT J 

A=1 
F(K=C-2)0 °C 24K) RXC1,K) 
GOUSUB350 

F(K)=E#F (CK) 

NEXTR 

H=F Cid +F (2D 4+F (3) HF (4) 
PRINT IPRINT SPRINT 
PRINTIPRINTIPRINT 
PRINT"DETERMINANT FOR 4/4 MATRIX 2" 
PRINT 

PRINTTAB(S) 7H 

END 

D(LIF¥YCL, TICS, 2340929) 
DCQIAVYCL Gd 4V¥ (Sr L8#Y(Gr72) 
DC4dBV(S,1L #2723 8YC1 79) 
DCSEVY(SB,2)eYC 2,3). #¥ (271) 
D(GI=EVY(SB,B#Y( 2,1) #Y (1,28) 
D(2d=¥C(1,2)4Y(2,39) #Y(371) 
E=D(i)+D(2)+D(3)-D(4)-D(35)-D(G3 
RETURN 


3. 5/75 Neterminant 


at 
20 
30 
40 
EO 
cle 
70 
eo 
90 
100 
216 


29. 
Ad 


120 
44&o 
15c 
isG 
170 
180 
250 
eon 
219 


mie 
ae is 


230 ! 


240 
250 
260 
270 
280 
290 
cleie; 
316 
320 
330 
340 
359 
260 
370 
380 
350 
£00 
£10 


REM S/F DETERMINANT 
FORG=iTOBOC PRINT INERT 
PRINT'MOTN IK 264575)" 
PRINT 


FOR Zi TOS 


FORK=1705 


INPUT2Z(ErK} 


NEXT ¥ 


PRINT 
NEXT S 
PRINTSPRINT SPRINT 


PRINT’ CALCULATING..." 


> 4 iw re TWN D 
sm re TNO CS 


DMI Bw aye 


A=i 
S(CdsCH-i*(i+CIeZ07-C) 
GCOSUB340 
S(C)=*S(C)}#H 
NEXT C 
P=$(1)+9(2)4+5(5)45(4)+4+5(5) 
FORG=1TOQO 2 PRINT ONEXT 
PRINT" DETERMINANT OF S/5 MATRIX 2" 
PRINTIOPRINTTAB(S) +P 
£ND 
A=1 
FORK=1TO4 
FORJ=27O4 
FORL=17O4 
IFL=K THEN4i0 
B=B+1 
Y¥CA,S80=X0S-L) 
NEXT L 
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420 B=0 

4430 A=Ar1 

440 NEXT 3 

450 A=: 

4GO FCK RC H1) °C 2 eK see L AD 
470 GOSUas20 

480 F(K SEH KK) 

430 NEXT K 

SOO HEF (1)+4+F(2)47(9)4F (4) 
S10 RETURN 

S20 DC LIRVCL Le #¥Y(2, 2 #V69,3) 
530 D(3)=¥Y DrSd¥¥(2,i)8#Y(5,2) 
940 D(4)2¥(3,1)#Y ore eyei 73) 
S00 D(S7=¥(3,2 PHY (C!S, 3). #Y (17-23 
960 DiB)=V(3,3) #¥(2,1)avCG 


370 
$80 
590 


wy = 


arn erad 


D Y(CL, 2. (2,353#V(377) 
E=D(1)+D(2)4+D(3)}-D(4)-D(S)-D( 6) 
RETURN 


4. Neterminants of 


3/3 


20 
ZO 
30 
40 
od 
50 
709 
80 
90 
100 
i110 
120 
130 
140 
159 
160 
i70 
180 
190 
200 
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» 4/49 S/S Matrix 
REM DETERMINANTS SF av 
FORG=11T930: PRINT INEXT 
INPUT“ENTER SIZE OF MATRIX";7A 
PRINT PRINT: PRINT 
IFA=STHEN1 20 

IFAS4THENLiO 

IFA=STHENOO 
STOP 
GOSU2760 

STOP 

GOSUB440 

s7oOP 

cOSUBi60 

STOP 

PRINT 

PRINT"MATRIX Z2(575)“ 


3194/4554 


~4 
ra 
on 


FOR V=i TOS 
FORK=1T0O5 
INPUTS (CG rK> 
NEXT K 


210 
220 
249 
250 
260 
270 
280 
290 
300 
210 
320 
339 
340 
350 
360 
3709 
380 
390 
400 
410 
429 
430 
446 
£50 
450 
470 
480 
490 
300 
Siod 
320 
930 
540 
SSo 
360 
370 
580 
$90 
600 
610 
620 
630 


PRINT 

NEXT J 

FORC=1TOS 

FORJ=2TaO5 

FORL=1705 
IFL=CTHENQOO 

B=B+i 

K(A,B)=Z(57L) 

NEXT £ 

3=0 

A=A4 i 

NEXT 

A=i 
S(Cd=C-£)%(140)82(1,0) 
GOSUeS3O 
S(C)=SiC)#H 

NEXT C 
9=5(1)+9(2)+S(2)4+5(4)+S8(5) 
PRINT 
PRINT"DETERMINANT OF 5/5 MATRIX 2" 
PRINTIPRINTTAB(S) +P 
RETURN 

A=i 

PRINT"MATRIX X(4,4)" 
PRINT 

FORJ=1T04 

FORK=1704 

INPUTX (7K) 

NEXT K 

PRINT 

NEXT J 

A=1 

FORK =i T04 

FOR J=2T04 

FORL=iT04 
IFL=KTHEN6GOO 

B=B+1 

Y¥(A,B)=X(57L) 

NEXT L 

B=0 

A=A+1 


NEXT J 93 


(3 


ike Sia 


r. 
ww 


+0) GD Gy 


hi 


370 
6so 
390 
706 
7iO 
720 
730 
740 
790 
760 
770 
780 
790 
BOO 
810 
B20 
830 
B4co 
B30 
BGO 
B70 
BE0 
290 
9006 
91¢ 
920 
930 
940 
950 


OK 
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Asi 

PUK GS RDS (ade? 
GOS LB AG 
EEK} EME (K) 

MEX? K 

HES Ci poe (SEC aye (aD 

PRINT 

ORINT 

PRINT“DETERMINANT DF 4/4 MATRIX i” 
PRINT 

PRINTTAB(S) 7H 


RETURN 
PRINT"MATRIX Y(3,2)" 
PRINT 


FORJ=i703 
FORK=1703 
INPUTY (J eK) 


NEXT K 
PRINT 
NEXT J 


DCLI=AVCL,1LI#Y02,2)4°Y(3,9) 
D(SIEV (Le GRV(S,1#7(9-2) 
Doped maven arava 
D(SIEYC I 2d C279) #¥ iri) 

Die ayaa eY(Z Ld EYL SZ) 
D(Zd=AV(CL S20 #V (2,39 #Y(G,4> 
F2b(2)+D(2)+D(3)-D(4)}-0(5)-0(6) 
PRINT 

PRINT"'BETERMINANT SF 2/3 MATRIX o" 
PRINT 

PRINT TAB(S)7E 

RETURN 


Matrix Multiplication 


MATRIX MULTIFLICATION - In this Frogram» 
you first have to enter the sizes of the 
twa matrices and then the numbers of the 
matrices (one after the other) by lines. 
The Frogram then will sive Matrix Z--the 
Froduct of the two matrixes which were 
entered, 


23 REM MATRIX MULTIPLICATICN 
20 FORG=iTO3B07PRINT INERT 
30 INPUT"ENTER ALBrC FROM K(Ar28?7 AND Y(B-C 
"7FArB82C 
40 PRINT 
SO PRINT"MATRIX xX" 
GO FORS=1TOA 
70 FGRK=i70B8 
BO INPUT X(J,7K) 
90 NEXT K 
100 PRINT 
110 NEXT J 
1290 PRINT 
130 PRINT"MATRIX Y" 
140 FORJ=1TOB 
i150 FORK=i1TOC 
160 INPUT Y(J-K) 
170 NEXT K 
180 PRINT 
190 NEXT J 
200 PRINT 
210 S=0 
220 FORI=1TOA 
230 FORK=1TOC 
240 FCRJ=:TOC 
95 
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200 
260 
270 
Z2B0 
290 
300 
320 
320 
ado 
340 
350 
360 
370 
3B0 
390 
400 


Ox 


S=X(LpSd¥Y (I,K 4S 
NEX™ J 

Z(irK)2S 

S=0 

NEXT K 

NEXT i 

PRINT 
PRINT"MATRIX Z" 
PRINT 

FORI=1TOA 
FORK=iTCC 
PRINTZ(I,4) 
NEXT K 

PRINT 

NEXT I 

END 


Classical Adjunct 


CLASSICAL ADJUNCT - This frogram gives all 
a@duuncts of 3s Freviously entered 3 sw 3 
matrix. 


REM CLASSICAL ADJUNCT 
REM S/3 MATRIX 
FORG=iTOSOSPRINT INERT 
PRINT"MATRIK XK" 
FORY=1TO3 

PRINT 

CRK=1TO3 

INPUTK (Gr) 
NEXTK 

NEXT 

F=0 

FORJ=17TO3 

FORK=iTSS 

F=F+1 

FORL=1TO3 

FORM=1TCS 
ITFL=JORM=KTHENZOO 
E=E+1 

D(F -EVeXK(L 2M) 

NEXTM 

NEXTL 

E=0 

NEXT K 

NEXT J 

Tz0 

PRINT. PRINT. PRINT 
PRINT"ADJUNCT CGF x" 
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98 


<80 
290 
306 
320 
320 
330 
340 
350 
360 
370 
380 


OK 


PRINT 

FOR S=1703 

FORK =17TO3 

T=iel 
YOSeKIACDCIT 1 #D(1e43-D(I +2) #D(1+3)) 
VYCGrRIEV (CS eK ROCIO HKD 
PRINTY<\ JK) 

NEXT K 

PRINT 

NEKT J 

END 


Matrix Inversion 


MATRIX INVERSION - In this Frograms the 
size of the matrix must be entered firsts 
then the numbers of the matrixs by lines. 
The Frogram then will give the inverse 
matrix » also known as A to the -ls of the 
original matrix. 


Li REM MATRIX INVERSION 
2O FORG=aLTOBOL PRIN? INERT 
30 INPUTMRANK GF MATRIX", S 
4G PRINT 

SO FORJ=i Toe 

GG FORK=:70B8 

7Q INPUTD(CG-)K> 

BOQ NEXT 4K 

30 POLAT 

LUG NEKT os 

11G FCRI=L1TOR 

226 FORK=17T08 

120 EC Sr,K}20 

340 IF ts SK THENTEO 

150 f¢4g,K}=1 

160 NEXT & 

170 NEXT &§ 

180 FORP=iTO2 

190 T=D(P,P) 

200 IFTSOTHEN410O 

2190 FORN=1T08 

o2G ECP,N)J=(E( PN) DST 

230 D(PsN)=(DCP,N))/7 

240 NEXT 

250 M=1 99 


100 


260 
270 
280 
290 
300 
310 
320 
330 
340 
35c 
360 
370 
380 
390 
400 
410 


OK 


IF P=MTHEN32ZO 

T=D(M,P) 

FGORN=1TOB 
E(MsN)=ECMN)-EC PND #7 
D(M,NI=D(MrN)-D( PSN) #T 
NEXT N 

M=M+i 

IFM< =8 THEN2Z69 

NEXT P 

FORJ=1TOBR 

FORK=i1TOB 

PRINTE (Js) 

NEXT K 

PRINT 

NEXT J 

END 


Peculiar Value 
of 3/3 Matrix 


FECULIAR VALUE OF 373 MATRIX - In this 
Frosrams the 3 x 3 matrix is entered. The 


Frogream then calculates the Feculier velue 
of this matrix. 


10 REM PECULIAR VALUE OF 3/3 MATRIX 

20 FORQ=1TO302PRINT- NEXT 

gO FORJ=1TO3 

40 PRINT 

SO FORK=i1TOS 

GO INPUTY(CJrK) 

70 NEXT K 

80 NEXT J 

90 FORJ=1TO3 

100 K(J,JdRHY(I7 JS) 

110 NEXT J 

120 PRINT 

130 FORL=-10T020 

140 FORJ=1TO3 

150 ¥CIr J EVOS, JDAL 

1GQ0 NEXT J 

170 P2=-1#YC 1,2) 80Y (2,1) #Y(31 3) -¥ C279) #43 
r1)) 

180 PSB=AY(i,JHCVY (2,1) FY (3,2) -¥ C272) 4Y (371) 


190 P=P1+P2+P3 


200 FORJ=1TO3 
210 Y¥CS,JSIEXC IS) 


101 


220 NEXT $3 

230 PRINT“L">L,"P(L)I "FP 
240 NEXT L 

250 END 


OK 
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System of Linear 
Equations 


SYSTEM OF LINEAR ERUATIONS - If sau have to 
solve a system of N linear eeauationss then 
use this Frogram. Firsts enter Ne then 
enter the co-efficients of the first 
eruations then the seconds and so on. The 
last entrs will the the solution vector. 
The Frogram then will give the values of 
all of the unknowns. 


10 REM SYSTEM OF LINEAR EQUATIONS 
20 REM ENTER CCEFFICIENTS BY LINES 
3G FORG=1TO30.LPRINT ONEX 

40 INPUT"RANK OF THE SYSTEM";8 

20 PRINT 

GO PRINT“MATRIX COEFFICIENTS" 

70 FORJ=iTOB 

BO FORK=iTOB 

90 INPUTD(U,K) 

190 NEXT K 

110 PRINT 

120 NEXT J 

230 GOSUB3i0 

140 PRINT" INVERSE C.MAT." 

150 FORJ=1TOB 

1G0 FORK=1TOB 

170 PRINTE(J,K) 

i180 NEXTK 
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104 


190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
910 
320 
330 
940 
200 
960 
370 
9B0 
590 
500 


PRINT 
NEXT J 
PRINT"COLUMN OF THE EXPANDED MATRIK" 
C=1 

FORJ=i7TOB 
FORK=1TOC 
INPUTY (574) 
NEXT K 

PRINT 

NEXT os 

GOSULS70 

STOP 

FORJ=1TOB 

FORK =1TC8 
E(srK)=0 

F3< >KTHENSGO 
E¢JrK3=1 

NEXT & 

NEXT J 
FORP=1TOR 
T=D(P,P) 
IFT=OTHENSSO 
FORN=iTOB 
E(P,N)SE(P,N)/T 
D(P,N)=D(PsN)/T 
NEXT N 

M=1 

IF P=MTHENS20 
T=D(M,P) 

FORN=: TOP 
E(MsN)=E(MsN)D-ECPSN) HT 


D(M,N)I=D(MsNI-DCP PND ST 
NEXT N 

M=M+1 

IFM< =BYHEN4S6O 
NEXT P 

RETURN 

sToP 

S=0 

FORI=i7TQ2 
FORK=i1TOC 
FORJ=i1TCB 


GiO SEC rps #¥ (Sr KI+S 
GeO NEXT J 

G20 2¢1-K)=5 

340 S=0 

G50 NEXT K 

GSO NEXT i 

G70 PRINT 

630 PRINT 

S90 PRINT"SOLUTION-VECTOR: " 
7OQO PRINT IPRINT 

710 FORIT=1TOB 

720 FORK=1TOC 

730 PRINTZ(I + Kd 

740 NEXT K 

790 PRINT 

760 NEXT 3 

770 RETURN 


Co-ordinant 
Transformation 


CO-ORDINANT TRANSFORMATION - This Ffrogram 
Sives the new co-ordinants after 
translation and rotation of the system, 


10 REM COORDINATE TRANSFORMATION BY TRANSL 
ATING AND ROTATING 

20 FORG=1TO902 PRINTS NEXT 

30 INPUT"DO YOU WANT TRANSFORMATION FROM S 
YSTEM 0,0,0 TO X0r+Y0r20"7KS 

40 J=0 

SO IFKS="Y"THEN7O 

GO J=1l 

70 PRINT 

80 INPUT"“ROTATION ANGLE IN DEGREES"; 1 

90 1=6.2839185#(1/360) 

100 INPUT"X,Y¥rZ COORDINATES OF ROTATION-AX 
IS";ArB,C 105 


110 
i120 
130 
140 
150 


D=A°2+B°24+C%2 

A=A/SQR(D) 

B=B/SQR(D) 

C=C/SQR(D) 

INPLUT"COCRDINATES OF THE NEW REFERENCE 


POINT KO,YO,;2Z0";XK0,YO,20 


iGO 
170 
rKrYr 
180 
190 
200 
210 
220 
230 
0rzQ" 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
rZ0";7 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
3900 
910 
920 
106 S30 


IF J=1THEN320 

INPUT"K,*Y,2 COORDINATES IN OLD SYSTEM" 
Zz 

K=X-XO 

Y=/-YO 

2=Z-20 

GOSUB430 

PRINT OPRINT: PRINT 
PRINT"COORDINATES IN REFERENCE TO XO,-¥ 
»PRINT 

XLSLL#X+L4xeY4+L7uZz 
PRINT"Xi="7X1 
YL=L2#X+LSe#Y+LB#2Z 
PRINT"¥1="-¥1 

ZL=FLI#X+LGH# V+LOG#Z 
PRINT"2Z1=";21 

PRINT: PRINT 

GOTO170 

PRINT? PRINT: PRINT 
INPUT"COORDINATES X1,Y1,Z1 MATCH X0,Y0 
X1,¥1i-,21 

PRINT 

GOSUB430 
X=X1L#LI+Y1I#L2+Z21#L3+X0 
PRINT"X="37X% 
Y=KL#L44+Y1#L5+4+Z1#LE+7YO 
PRINT"Y=";Y 
Z=X1#L74+V%1#L0:714#L9+Z0 
PRINT"2Z=";2 

GOTO 320 
L1i=A*°2#(1-COS(1I))+COS(I> 
L2=A#B#(1-COS(1I))-C#SIN(T> 
L3=A#C#(1-COS(I))+BeSIN(I) 
L4=B+A#(1-COS(I))+C#SINCI) 
LS=B%2#(1-COS(I))+COS(I> 
L6=B#C#(1-COS(I))-A#SINCI) 
L7=C#A#(1-COS(I))-B#SINC(I) 
LB=C#B#(1-COS(I))+A#SINCI) 
L9=C*%2*(1-COS(I))+COS(1) 
RETURN 

END 


Geometry 


GEOMETRY - This Frogram is useful if sou 
have to work with Flanes in three 
dimensions. 


10 REM---GEOMETRY--~ 

20 FORQ=1TO302PRINT NEXT 

JO PRINT"YOU KNOW :" 

40 PRINTS PRINT"-1--NORMALIZED EQUATION OF 
THE PLANE" 

SO PRINTS PRINT"-2--POINT OF INTERSECTION O 
F LINE AND PLANE" 

60 PRINT?OPRINT"-3--DISTANCE POINT TQ PLANE 
"SPRINT 

70 PRINT"-4--LINE OF INTERSECTION BETWEEN 
2 PLANES". PRINT 

80 PRINT"“-S--ANGLE BETWEEN 2 LINES" = PRINT 
90 PRINT 

100 INPUT"ENTER ONE NUMBER";R 

110 PRINTS PRINT: PRINT=:PRINT=: PRINT 

120 ONRGOTO0130,140,150,160;,170 

130 GOSUB1080°:STOP 

140 GOSUB400°STOP 

i50 GOSUBSB80: STOP 

iGO GOSUBG70:STOP 

170 GOSUB180:STOP 

180 PRINT“ANGLE BETWEEN TWO LINES" 

190 PRINT“VECTORS OF THE LINES" 

200 PRINT"LINE 1" 

210 INPUTX1,/X2,X3 

220 PRINT"LINE 2 

230 PRINT 

240 INPUTG1I,-G2,G3 

250 PRINT 
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260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


410 
420 
430 
440 
450 
460 
470 
480 
490 


S#NzZ) 


500 
S10 
520 
530 
540 
550 
560 
570 
S80 
590 
600 
G10 
620 
G30 
640 
650 
660 
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PRINT 
C=XLH#G14+K24G624+K9#63 
D=SQR(K1%24+X2°2+KI9%2 ) 
E=SQR(G1°%2+G2°%2+G63%2) 
C=C/(D#E) 

PRINT"COS A="C 
C=C/S@QR(1-C“%2) 
C=1.57079G-ATN(C) 
PRINT: PRINT 
PRINT“ANGLE";C"RAD" 
C=C/3.1459275 
C=C#1i80 

PRINT"IN DEG 2";C 
RETURN 

PRINT"POINT OF INTERSECTION(LINE/PLANE 


T=0 

PRINT 

PRINT"POINT ON THE LINE" 

INPUTP1,P2,P3 

PRINT 

PRINT"VECTOR OF THE LINE" 
INPUTG1,G2,G3 

GOSUB1080 
T=(C-NK#PI-NY#P2-NZ#P2* 7 CGLENX+G24NY+G 


X=P14+G14T 

Y=P2+G2"T 

2=P3+G3#T 

PRINT 

PRINT“POINT OF INTERSECTION" 
PRINT 

PRINT SX" Kr OV Ve M289! 

STOP 

PRINT" DISTANCE ( POINT/PLANE ) 
PRINT 

PRINT"COORDINATES OF THE POINT" 
INPUTP1,P2,P3 

GOSUB1080 
D=NX#P1+NY#PZ+NZ#P3-C 
PRINT"DISTANCE=";D 

PRINT 

RETURN 


670 
680 
G90 
700 
710 
720 
790 
740 
730 
760 
770 
780 
790 
B00 
810 
820 
B30 
840 
B50 
860 
870 
880 
B90 


REM LINE OF INTERSECTION 
PRINT 

PRINT" PLANE-1i-" 
GCSUB1i080 

EX=NX 

EY=NY 

EZ=NZ 

CE=C 

PRINT 

PRINT 

PRINT" PLANE-2-" 
PRINT 

GOSUB1080 

AX=EX 

AY=EY 

AZ=EZ 

BX=NX 

BY=NY 

FX=NK 

FY=NY 

F2=NzZ 

GOSUB1700 
PRINTIPRINT"VECTGR OF THE LINE OF INTE 


RSECTION" 


900 
910 
920 
930 
940 
950 
N" 
960 
970 
980 
990 


PRINT"X"SNXe"V¥"ENYs "2" NZ 

PRINT 

IF (FY#EZ-FZH#EY ) =OTHENSD7O 

PRINT 

Z=(FY#CE-EY#C)/(FY#EZ-FZREY ) 
PRINT"POINT ON THE LINE OF INTERSECTIO 


PRINTO,Y,2 

IF (FX#EY—-FY#EX ) =OTHEN1OGO 
K=(CHEY-FY#CE) /(FX#EY-FY#EX) 
Y= (FX#CE-C#EX) / (FX#EY-FY#EX) 


1000 PRINT"POINT ON THE LINE OF INTERSECTI 


ON" 


1010 PRINT"X" Xe "¥"s Ye "2"92 

1020 RETURN 

1030 X=(C#EZ-FZ#CE)/(FX#EZ-FZ#EX ) 

1040 Z=(FK#CE-C#EX) /(FX#E2Z-FZHEX) 

1050 PRINT"POINT ON THE LINE OF INTERSECTI 


ON" 
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Number Converter 


CONVERTER - First the B 1 
NORER 3 thens the number, The oerosram 


will convert to decimal value. Rase 2? to 
Rase 16 can be used. 


10 REM NUMBER CONVERTER 

20 FORG=1TO3O2 PRINT ONEXKT 

30 INPUT"ENTER BASE";B1 

40 IF Bis2 OR 817iG THEN 30 
30 INPUT"ENTER NUMBER"; Ni¢ 

SO L=LEN(NI$) 

70 DEC=0 

BO P=0 

90 FOR J=t TO 1 STEP -1 

100 K=ASC(MIDS(Ni$,J5,1)) 

110 IF K>64 THEN K=K-7 

120 K=K-48 

130 IF K<B1 AND K>-1 THEN 170 
140 PRINTS PRINT" INVALID INPUT FOR BASE";B1 
150 PRINT?OPRINT: PRINT 

160 GOTO 30 

170 DEC=DEC+K#B1%P 

180 P=P+1 

190 NEXT J 

200 PRINTIPRINT"DECIMAL VALUE=";DEC 
210 PRINT: PRINT: PRINT 

220 GOTO 30 

230 END 


OK 
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Sorting (Binary Tree) 


SORTING ALGORITHM (BINARY TREE) - Sometimes 
it 1s necessary to sort data in memory. If 
there is 2 lot of datar it is imrortant to 
have 2 fast sorting algorithm, Rut since 
the fast algorithms need more memory, you 
have to comFromise. 


This e@logrithm uses the method of the 
binary tree. The data will te stored in 
the form of a2 table. This data will the 
sorted but there are rFointer-arrays that 
define where the next smaller and next 
larger elements are in the table. 


SAMPLE? 
The following numbers are ta be sorted? 
Br 4eS5ebe701 95910911 
The binary tree looks like this? 


(<=corresronds ta left edge» > corresFands 
to right edge) 


8 
yg 
oa Ng NY 
ew 
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OUTFUT OF THE SORTED TREE - To get the 
sorted seauence you have to run throush the 
tree from bottom left to bottom right. A 
left edge has Frecedence over 2 Junction 
and 2a Junction over the right edge, 


Action of The Tree in BASIC? 





a | 


2131519) rai SLAP IP| 


Siig} =léelsiple} = (4171910! 


No. <> > 


Index 0 A R 


0 6 1 7 
1 4 2 43 
2 3 SS - 
3 6 6 4 
4 Poo- = 
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10 
20 
30 
40 
30 
60 
70 


30 

100 
110 
iZzo 
130 
140 
iso 
160 
179 
180 
190 
200 
210 


220 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


A] 
bee 
! 

4 


é 
7 10 - 8&8 
8 1! - 


REM SORTING 
FORQ=1TO302 PRINT > NEXT 
INPUT"NUMBER OF ELEMENTS", 
PRINT PRINT 
N=N-1 
K=N 
DIM A(N),B(N),C(N) DCN) 
FORI=OTON.D(I)=INT(C1LOO#RND(N)+.5) 
PRINTD(I) SNEXT: PRINT 

REM ### SORTING ### 
FORT=OTOK-1 

L=0 

IFD(I+1)2>D(LIGOTO160 

IFA(L) =OTHENA(L)=I1+1-.GQTO180 
L=A(L) <GOTOL30 

IFB(L) =OTHENB(L)=I+12G0T0180 
L=B(L).GOTO130 

NEXTI 

REM ### QUTPUT ##H 

M=-1.L=0 

T=0 

IFA(L) S>OTHENM=M4+1:C(M)=L°L=A(L) -GOTOZ2 


IFT >KGOTO340 
PRINTD(L) 

I=I+1 
IFB(L)=0GOTO2ZB80 
L=B(L) -GOTOZ20 
IFM<OGOTO340 
T=I+1°PRINTD(C(M)) ©L=B(C(M) >) 
IFI>KGOTO340 
M=M-1 
IFL=0GOTO2B0 
GOTOZ20 
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Numerical 
Differentiation 


NUMERICAL [DIFFERENTIATION - This” Ffrogram 
Sives the value af the first and second 
derivetive at rosition X of the in line 50 
defined eauatian,. 


10 REM NUMERICAL DIFFERENTIATION 

20 REM FIRST AND SECOND DERIVITIVES 
30 FORQ=1TO302PRINT ONEXT 

40 INPUT"XK="7XK 

00 DEFFNY CK) EK%2+28K 

GO D=.01 

7O ACL) =CFNY (X+.5#D) -FNY(X-.5#D))/D 
BO A(2)=(FNY(X)-FNY(X-D))/D 

90 ACS) =(FNY(X+D)-FNY CX) )/D 

100 A(4)=(AC3)-A(2))/D 

110 PRINT PRINTS PRINT"F OX) ="FFNY(X) 
120 PRINT: PRINT"FI(X)="F7AC1) 

130 PRINT: PRINT"F2(K)="7A(4) 

140 END 


OK 
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Numerical Integration 


(Simpson} 


NUMERICAL INTEGRATION - This Frosgram 
calculates (by the Simeson Frocedure),s the 


value 


of the integration of the in line 30 


defined eauation between the eoints A and 


EB, 


10 
20 
30 
40 
90 
60 
70 
BO 
90 
100 
ii 
120 
130 
140 
150 


OK 


REM NUMERICAL INTEGRATION (SIMPSON) 
FORQ=1TO30. PRINT © NEXT 
DEFFNY (KX) =XK%3 

INPUT"BEGINNING"; 

PRINTS INPUT"END";B 

N=100 

D=(B-A)/N 

S=FNY(B)+FNY CA) 

FORJ=OTON-2STEP2 
S=S+4H#FNY (A+( S41) #D) +24#F NY (J#D+A) 
NEXT J 
S=S#D/3 
PRINT: PRINT. PRINT 
PRINT"S="7S 
END 
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Differential Equation 


DIFFERENTIAL EQUATION - This Frogram needs 
4300 tutes of memory, It contains 32 
routine for CLEAR SCREEN. 


The Lothae-Volterra-model describes the 
evolution of two tyres of enimals» 
derendent uron each other (FREY-CARNIVORE). 
This 1s 2 model that shows the area of the 
differential eauations, 


There are two differential eauations? 


Y¥°CLI=-ALFHACY (LID FBETACY (0) ¢X(t)) 
X’ (tL) =GAMMA(X(t))-DELTACX (td (CY Cbd) 


with the starting values? 
Y(OJ=YO and X(0)=X0 where 


Y(t) as the evolution of the 
carnivores and 
X(t) is the evolution of the rrey 


If RETA and DELTA = O» then the breeds will 
evolve inderendently. Y(t) will decline 
exronentiallyy, and X(t) will $row 
exronentially, 


The RUNGE-KUTTA Frocedure is 2 way to solve 
a differential eruation numerically, 
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Differential Eruation (continued) 
Concerning the CURSOR? 


If the CURSOR arrears (character 161)» you 
can continue by hitting RETURN, After the 
Srarhics are finisheds the CURSOR arrears. 
You can hit A or Z. With A you JumF to the 
location where the co-ordinates (MIN»MAX) 
mes be changeds with Zs to the location for 
changing the Ferameters of the model. 


If a change is desireds mave the CURSOR 
uF (A=uF) or down(Z=down)s to the Jline sou 
want to changer then hit RETURN, The 
selected line arrears as an ineut line’ and 
you can change the rarameters of the line. 


The meaning of this model: 


For many years man has used mathematics to 
describe Froceedings in nature. Physical 
values are described by mathematical 
relations. With “mathematical systems” you 
can describe more comelex Froceedings,. If 
you have found 2 model that describes the 
Froceedings well enoushs then sou can hele 
threatened srecies (whales) or imrrove rest 
control. This example will be e 
demonstration for mathematical models of 
neture,. 


10 REM DEQ 

20 RESTORE 

30 POKE11,68:POKE12,2 

40 FORT=S80TOGO3. READE: POKET,EsNEXT 

50 DATAIGO, 32,160,4,162,07157,70,208,232,20 
8 

GO DATAZS0O,238, 76,2,136,208,244,169,208,14 
1,76r2-96 

70 GOSUBB30 

BO PRINT" LOTKA-VOLTERRA MODEL": PRINT 
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90 PRINT" --> (RETURN) "; 


100 
110 
120 


GOSUBIGO: PRINT 
DATAZO,20,674;.21.27.041r50 
READB: READA: READAL. READBE . READGA: READD 


E2READH: READNN 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


E,253 


440 
450 
460 
470 
480 
490 
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XA=NN.MA=NN 

GOSUB830 

PRINT" COORDINATES: "2 PRINT: PRINT 
PRINT" 1 XMINIMUM="-XKI2PRINT 
PRINT“? XMAXIMUM="7 XAL PRINT 
PRINT"S YMINIMUM="—;MI-2PRINT 
PRINT"4 YMAXIMUM=";MA.PRINT 
PRINTS PRINT" CHANGE COORDINATES 7?" 
GOSUBSGO 

IFZ=470R2=-16G0TO300 

PRINT: PRINT 
ONZGOTO260,270,280,290 

GOTOZ10 

INPUT" XMINIMUM=";XI2>GOTO140 
INPUT" XMAXIMUM="; KA. GOTO140 
INPUT" YMINIMUM=",MI-2GOTO140 
INPUT" YMAXIMUM=";MA2GOTO140 
GOSUB830 

PRINT" GRAFICS: "2 PRINT 

PRINT 

PRINT" 1 CARNIVORE-QUARRY" > PRINT 
PRINT"2 TIME-CARNIVORE": PRINT 
PRINT"S TIME-QUARRY" | PRINT 
GOSUB9EO - 

IFZ2=-1G0R2=47THENZ=1 
2Z1S="TIME" 2 22$="QUARRY" 
IF2=1THENZ1%="CARNIVORE" 
IF2Z=2THENZ2$= "CARNIVORE" 

AZ=2 

GOSUB830 > GOSUB1060 
POKES4117,161 .KE=57088: POKES30,12POKEK 


IF PEEK (KE) =223THENPOKES30,0:G0T0420 
IF PEEK (KE) =191 THENPOKES30,0:GOTO140 
GOT0440 

REM GRAFIC3 UP 

REM XI,XA,MI,MA 
IFL<MIORL >MAORJ< XIORJ>XATHENRE TURN 


900 
910 
bet 
930 
340 
350 
360 
370 


I=INT((J-XI)/(XA-X1I) #493) 
K=INT((L-MI)/(MA-MI) #45) 
UA=INT(I/2)4+54055 

MXN=I-INT(I/2) #2 

MY=K-INT(K/2) #2 

AD=UA-32# (K-MY)/2 

PE=PEEK (AD) 

IFPE=1G690RP=1700R( PE+1S53ANDPE< 158) THEN 


RETURN 


380 


IFPE< >32ANDNOT (PE=1280RPE=2090RPE=136) 


GOTOGOO 


990 
G00 
610 
320 
630 
640 
650 
GGO 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
BOO 
810 
B20 
830 
840 
850 
BGO 
B70 
880 
B90 


URB1040 


POKEAD, 1G674+MY—-24MX . RETURN 

IFPE< >165GOTOGSO 

IFMX=OANDMY =OTHENZ2=154.G0T0B10 
IFMX=OANDMY=1THENZ2Z2=169:GO0TO810 
IFMX=1ANDMY=OTHENZ2Z=165-.G0TO810 
22=157.G0T0810 

IFPE< >16GGOTO710 

IFMX=OANDMY =OTHENZ2Z=170.G0TOB10 
IFMX=OANDMY=1 THENZ2Z=155.GOTO810 
IFZ+AB=40RZ+AB=G6THENZ2=153+2-GD0TO810 
IFMX=1ANDMY=OTHENZ2=157:2GOTO810 
22=166.-GOTO610 

IFPE< >167G0TO760 

IFMX=OANDMY =OTHENZ2Z=167.GOTO810 
IFMX=8ANDMY=1THENZ2=156:GOTO810 
IFMX=1ANDMY =OTHENZ2=154.GO0TO810 
22=170.GOTO810 

IFPE< >168GOTO820 

IFMX=OANDMY =OTHENZ2=156:2G0T0810 
IFMX=OANDMY=1THENZ2=168.G0TO810 
IFMX=1ANDMY=OTHENZZ=169.GO0TO0B10 
22=155 

POKEAD:22 

RETURN 

WW=USR (WW) 

RETURN 

REM LETTERING 

21=539351.22=54055 -2Z9=54076 
FORT=Z1TOZ2STEP32:POKET,136.NEXTT 
FORT=Z22TOZ3° POKET, 128: NEXTT.POKEZ2,209 
Z4=32°Z2$=MIDS(STRS(MA) -2) 2 25=5939318.G05 
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900 24=32:2$=MID$(STR$(MI),2) 125=54054-LEN 
(2%) #2Z42G0SUB1040 

910 Z4=1°5Z2$=MID$(STRS(XI) +2) 1Z5=54086 :GOSU 
B1040 

920 Z4=1:Z2=MID$(STR$(XA) +2) ?Z5-54108-LEN( 
Z%) 1GOSUB1040 

930 24=32!2%=222$125=53445 :GOSUB1040 

940 24=1:2$=Z21$125=54124:GOSUB1040 

950 RETURN 

9G0 KE=57088!POKES30,1 

970 POKEKE,223:R=54117 

980 Z=PEEK(R) 2 POKER, 1G61:QQ=1°1%1 

990 POKER,161 

1000 IFPEEK (KE) =191THENPOKER, Z:R=R-32:GOTO 
980 

1010 IFPEEK (KE) =223THENPOKER, Z:R=R+32:GOTO 
980 

1020 POKEKE, 223! IFPEEK (KE) <>247THENPOKEKE; 
253:G0TO1000 

1030 POKES30,0!Z=Z7-48:RETURN 

1040 FORT=Z4TOLEN(Z$) #Z4STEPZ4 2 POKEZ5S+T-AS 
C(MID$(Z$,T/Z4,1)) 

1050 NEXTT!RETURN 

10G0 GOSUBB30:PRINT"1 CARN.STARTING V.="3B 

1070 PRINT:PRINT"2 QUA.STARTING V.="3 

1080 PRINTIPRINT"3 DEATH-RATE CARN. =";ALPH 
A 

1090 PRINT:PRINT"4 BIRTH-RATE QUA.="3BETA 

1100 PRINT:PRINT"S CONS.-RATE CARN. ="3GAMM 
A 

1110 PRINTIPRINT“G HIT-RATE QUA.="iDELTA 

1120 PRINT:PRINT"7 STEPWIDTH="$H 

1130 PRINT:PRINT"S STEPS N="3NN 

1140 PRINT:PRINT:PRINT" CHANGE DATES ?":G 
OSUB9E6O 

1150 IIl=ZI1F2=470RZ=-16G0T01330 

1160 ONIIGOTO1170,1190,1210,1230,1250,1270 
71290,1310 

1170 PRINT:IINPUT" CARN. STARTING VALUE="3B 

1180 PRINT!:GOTO10G0 

1190 PRINT:INPUT" QUA. STARTING VALUE="3 

1200 PRINT:GOTO10G0 

1210 PRINT: INPUT" DEATH-RATE CARN.="3AL 

1220 PRINT:GOTO1060 
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1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1910 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


PRINTS INPUT" BIRTH-RATE QUA.=";BE 
PRINT.GOTO10G0 

PRINTS INPUT" CONS.-RATE CARN.=";GA 
PRINT -GOTO10GO 

PRINTS INPUT" HIT-RATE QUA.=";DE 
PRINT. GOTOi0G60 

PRINTS INPUT" STEP WIDTH=";H 
PRINT. GOTO1060 

PRINTS INPUT" STEPS N=";NN 
PRINT? GOTO1060 

GOSUB830 2 N=NN 

AA=A.BB=B 

GOSUBBS50 

FORT=0OTON 

GOSUB1460 

GOSU6 1580 
IFAZ=1THENJ=B:L=A:>GOTO1420 
IFAZ=2THENJ=T.L=B.GOTO01420 
IFAZ=3THENJ=TIL=A 

GOSUB470 

NEXTT 

A=AA.B=BB 

RETURN 

REM RUNGE-KUTTA 

REM PAR UJ-H,B 
UJ=B.I=1°>GOSUBIGGO 
UJ=B+V(1)/2.1=2.G0SUB1660 
UJ=B+V(2)/2°1=3:GOSUBi1G60 
UJ=B+V(3)2.1=4°>G0SUB1660 
AC1)=1/62A02)=1/395A(3) =1/35A(4)=1/6 
FORI=1T04 

B=Bt+ACT) #VU(T) 

NEXTI 

RETURN 

REM PAR UI,H,A 
UI=A:1=1-GOSUB1670 
UI=A4+V(1)/221=25G0SUB1670 
UI=A+V(2)/221=3:G0SUB1670 
UI=A+V(3)51=4°G0SUB1670 
FORI=1T04 

A=A+ACT) #U(CT) 

NEXTI 

RETURN 

YV(T) =H*(-AL#UJ+GA#A#UJ) SRETURN 
V(1) =H*#(BE#UI-DE#B#UI) SRETURN 125 


Prime Factors 


FRIME FACTORS - This eFrogram solves (for 
Frime numbers and gives the number and its 
Fower to eaual 2 designated number, The 
Frogram can also be used to determine if a2 
number is 2 Frime number. It ais accurate 
to more than 13470007000. 


i0 REM PRIME FACTORS 

20 FORQ=i1TO2Z5.PRINT:NEXT 
30 PRINTS PRINT: PRINT: PRINT: PRINT 
40 INPUT"NUMBER";A . 
90 IFAC1342177Z28THENGO 

GO PRINT"SORRY! TGO BIG" 
70 PRINT 

BO GOTO3O 

90 D=A 

100 FORQ=1TO30: PRINT 2NEXT 
110 IFA=2THEN4i10 

120 Q=0 

130 IFAS>OTHEN1I50 

140 STOP 

150 C=2 

160 GOSUB200 

170 FORC=3TOSQR(A)STEP2 
180 GOSUB200 

190 GOTO3GO 

200 B=0 

210 IFA=C#INT( A/C) THEN230 
220 GOTO2ZG6O 

230 A=A/C 

240 B=B+1 

290 GOTOZ10 
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260 
£70 
=<80 
290 
300 
310 
320 
3390 
340 
350 
360 
370 
380 
390 
400 
410 

20 
430 


OK 


IFB< 1 THENSSO 

IFQ=1THENS40 

Q=1 

PRINT" THE PRIME FACTORS OF"D"ARE =" 
PRINT? PRINT 

PRINT" PRIME MULTIPLICITY" 


PRINT 
PRINTC;8B 
RETURN 

NEXTC 
IFA=1THEN3O 
IFQ=OTHEN410 
PRINTA;1 
GOTO30 
PRINT" THE NUMBER"A"IS PRIME." 
GOTO30 

END 
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Pythagorean Numbers 


FYTHAGORIAN NUMBERS - This Frogram searches 


for 


@ll rossible variables in the euadratic 


eeruation AXAtBKR=CXC,. The orerator types 


in t 


10 
20 
30 
40 
exe) 
60 
70 
BO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


he amount he or she wants “CC” to eaual. 


REM PYTHAGOREAN NUMBERS 
FORX=1TO302 PRINT: NEXT 
DEFFNY(X)=INT(XK#10+.5)/10 

INPUT"UP TO WHICH NUMBER";G 
FORX=1TO30O2 PRINT > NEXT 

PRINT“ A#A + BB = C#C" 
K=1-° PRINT 
FORL=OTOK~-12M=2#K -N=Z2#L+1 
FORK=2TON+1°Y=M/NIIFY< OINTCY) THEN1I20 
Z2EN/KLIF2Z<SSINT(Z) THENL20 

GOTO170 
NEXTKSN=2#L+1 0 A=M#M-N#EN: B=2HMHN 
C=M#M+N#N 2 D=A#A+BH#BSE=CH#HC 

A=FNY(A) -B=FNY(B) -C=FNY(C) 

IFC >GTHEN260 

GOSUB270 

M=2#K+1IN=24#L+2 
FORX=2TON.Y=M/X I IFY< >INT(Y) THEN2Z10 
Z=N/X LIF ZK > INT(Z) THENZ10 

GOTO250 

NEXTX -A=M#M—-N#N 2 B=Z#M#N: C=M#M+NHN: D=At 


A+B#BSE=C#C 


220 
290 
240 
250 
260 
270 
280 
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A=FNY (A) :B=FNY(B) ZC=FNY(C) 
IFC>GTHEN260 

GOSUB270 

NEXTL:K=K+1:GOTO80 

END 
PRINTTAB(2)7A;TAB(8) 7B TAB(L4)5C 
RETURN 


Decibel Program 


DNECIREL FROGRAM - This Frogram calculates 
the chense of either the rower or voltage 
ratio in decibels in electrical circuits, 


10 REM DECIBEL PROGRAM 

20 FORX=17TO0252 PRINT ©NEXT 

30 PRINT"DECIBELS FOR VOLTAGE AND POWER RA 
TIOS" 

40 PRINTS INPUT" ENTER MODE (WY OR P) "FKt 

SO IFKX$="W"THENI10 

60 J]=10 

70 PRINTS INPUT" ENTER Pi IN WATTS ";Pi 
80 PRINTS INPUT" ENTER P2 IN WATTS ";P2 
90 A=P1-.B=P2 

100 GOTO150 

110 PRINT: INPUT" ENTER El IN YOLTS "“7El 

120 PRINTS INPUT" ENTER E2 IN VOLTS ";E2 

130 A=E1LSB=E2.1=20 

140 B=E2.1=20 

150 X=I # LOG (A/B)/LOG (10) 

160 X=X#1000-2PRINT SPRINT 

170 X=INT(X#10+.5)/10000 

180 PRINT"THE "X%;" RATIO REPRESENTS A CHA 
NGE OF “;X;" DECIBELS" 

190 PRINT: PRINT: PRINT: PRINT: GOTO40 
OK 
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Histograms 


HISTOGRAMS - This Frogram shows 2 simFrle 
wey to draw 2 SIN function. 


i0 FOR X=0 TO 2#G.28STEP .3 
20 Z=SIN(X) 
30 Z=Z#1000 
4G Z=INT(Z#10+.5)/10000 
50 PRINTZ?TAB(8)} 
GO Y=15*Z+16 
70 K=INT(Y) 
80 FORU=1TOK 
90 PRINT"+"; 
100 NEXTU 
110 PRINT 
120 NEXTX 
130 GOTOiO 
OK 
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Regression Analysis 


REGRESSION ANALYSIS - The orferator = enters 
at least three rairs of numbers from 2 
carthesian coordinate system. The Ffrogram 


then lists the results of regression 
anelysis. 


10 REM REGRESSION ANALYSIS 

20 FORQ=1TOS3O2 PRINT? NEXT 

30 DEFFNY(X)=INT(X#1000+.5)/1000 

40 DIML(2,50) 

50 INPUT“ENTER NUMBER OF PAIRS OF NUMBERS" 
rN1CIFN1>=3THEN7O 

60 PRINT"N HAS TO BE GREATER THAN 2".GOTOS 
0 

70 PRINT“ENTER;: ‘xX,Y‘" 

BO FORN=1TONISINPUTL(1,N),L(29N) SNERT 
90 FORN=1TON1 

100 K=X+L(1;,N) 

110 Y=¥+L(2,N) 

120 X2=K2+L(1,N)%2 

130 Y2=Y2+L(2,N)%2 

140 Z=2+L(1,N)#L(2,N) NEXT 

150 KX1=X/NIY1=Y/N 

160 B=(N#2-X#Y)/(N#X2-X%2) LA=V1-BHX1 
170 SL=((¥2Z-A#Y-BRZ)/(N-2))%.5 

180 KO=(N#X2-K#K)%.5 

190 YO=(N#Y2-Y#HY)*.S 

200 R=(N#Z-K#Y)/(CKO#YO) 

210 Z=FNY(2) 2 X2=FNY(X2) DY2=SFNYCY2) 
220 X1=FNY(X1) SYL=FNY(Y1) © B=FNY(B) 
230 A=FNY(A) 2 SL=EFNY(S1) SR=FNY(R) 

240 FORQ=1TO302PRINT- NEXT 
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250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
S"7A 
370 
380 
390 
400 


OK 
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PRINT"RESULTS OF REGRESSION ANALYSIS" 


PRINT 


PRINT" NUMBER 


PRINT"“SUM 
PRINT"“SUM 
PRINT"“SUM 
PRINT"SUM 
PRINT" SUM 


OF 
OF 
OF 
OF 
OF 


PRINT"MEDIAN 
PRINT "MEDIAN 
PRINT“SLOPE B OF STRAIGHT LINE";B 

PRINT"POINT OF INTERSECTION WITH Y-AXI 


PRINT 


OF PAIRS";N1 

X- VALUES"; XK 
Y-VALUES"; Yo PRINT 
X#¥" 72 
X-SQUARES"; K2 
Y-SQUARES"Y2.2 PRINT 
OF X"“;X1 

OF Y";Yi°PRINT 


PRINT"STANDARD FAULT";St 
PRINT"CORRELATION-COEFFICIENT";:R 


END 


Simple Statistics 


SIMPLE STATISTICS - The operator enters 
starting values, For each value ofr 
measurement the rereat factor is entered. 
The result will show the means medians and 
the variation coefficient, 


10 REM SIMPLE STATISTICS 

20 FORG=1TO30-. PRINT. NEXT -CLEAR 

30 PRINT “SIMPLE STATISTICS" © PRINT 

40 PRINT "BEGINNING VALUE." 

SO INPUT"NUMBER (N)";N 

GO INPUT"SUM OF XK (SXK)"7SX 

70 INPUT"SUM OF X-SQUARE (Q@X)";QX 

80 PRINT: PRINT: PRINT 

90 PRINT “VALUES OF MEASUREMENT: " 

100 PRINT 

110 INPUT "“YALUE OF MEASUREMENT, NUMBER"; 
Xr fi 

i120 IFI=OTHEN170 

130 N=N +I 

140 SX = SX + X # I 

150 QX = QXK + xX *# K # I 

160 GOTO110 

170 PRINTIPRINT SPRINT: PRINT? PRINT 

180 M=SX/N 

190 S = S@RC (AX - M # SX)/(N-1)) 

200 V = S *# 100 / M 

210 PRINT 

220 PRINT“NUMBER (N)";N 

230 PRINT"SUM OF X (SXK)";SX 

240 PRINT"SUM OF X-SQUARE (Q@X)";QX 
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250 
260 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 


OK 
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PRINT 

PRINT"MEDIAN (M)">™M 

PRINT"STANDARD DEVIATION (5)";5 
PRINT"VARIATION COEFFICIENT (Ud";Ma"y" 
PRINTOPRINT SPRINT :PRINT > PRINT 
PRINT"ENTER <" 


PRINT 
PRINT “1 = EXTRA VALUES OF MEASUREMENT 
PRINT “2 = NEW ROW OF VALUES" 


INPUT I 2: PRINT 
ONIGOTO100,20 
GOTO300 


Function Plot 


FUNCTION FLOT - This eFfrogram Flots sour 
function (FNY(X)) defined in line 60 with 
three different eeriods (AsBrC), “LY” as 
incremented after each looF. You can use 
“L” in line 60 sa that you have a function 
(FNY(X9L)). 


10 REM FUNCTION PLOT 

20 FORG=iTO30° PRINT? NEXT 

30 E=3:L=1 

40 INPUT"STARTING VALUE OF X";¥ 

90 T=3 

GO DEFFNY(X)=SIN(L#X) 

7O FORP=0TO2 

B80 FORJ=53248T054272:POKE!,32:NEXT 
90 FORJ=S3248TO0S4272STEP32Z: POKE(J+1G),139 
100 NEXT J 

110 POKES3392,126 

120 X= 

130 FORJ=S324B8TOS4203STEP32 

140 K=K+E#(P+1) 

150 U=FNY(X) 

160 POKES4088, (P+G65) 

170 POKES4098, 76: POKES4099,61 

180 POKES4100,(48+INT(L/10)) > POKES4101,(46 
+L-1LO#INT(L/10) ) 

190 C=INT(U)+16 

200 D=INT(B8#(U-INT(U))) 

210 POKE(J+C),(136+D) 

220 IFABS(X)>(P#E) THEN240 


230 POKE(J+4),1482POKE(J+G),48:POKE(J+7),1 
468. POKE(J+6),148 
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136 


240 
250 
260 
270 
280 
290 


OK 


NEXT J 
NEXTP 
IFL=TTHEN20 
L=L+1 

P=0 

GOTO70 


Precipitation 


PRECIPITATION - This rFfrogram should be 
heleful in chemical analysis when the 
Froduct and concentration of Frreciritation 
ere reauired, 


10 REM PRECIPITAION 

20 FORG=1T030: PRINT > NEXT 

SO PRINT“OPTION MENU" SPRINT 

40 PRINT"-1-PRODUCT OF SOLUABILITY" = PRINT 

50 PRINT"-2-CONCENTRATION NECESSARY FOR PR 
ECIPITATIGN" © PRINT 

60 PRINT"-3-SOLUABILITY" 

70 PRINT 

BO INPUT"“OPTION";U 

SQ PRINTSPRINT SPRINT 

100 INPUT"SUBSTANCE 1 SEPARATES IN HOW MAN 
Y NEGATIVE IONS "-K1 

110 PRINT. PRINT 

120 INPUT" IN HOW MANY ANIONS DOES SUBSTANC 
E 1 SEPARATE ";A1 

130 ONUGOTO140,360,9320 

140 PRINT. PRINT: PRINT 


150 INPUT"DG YOU KNOW THE SOLUBILITY OF SU 
BSTANCE 1",;Y$ 


160 IFY$="N"“THEN190 

170 INPUT"SOLUBILITY OF SUBSTANCE 1 IN MOL 
/L">LM 

180 GOTOz90 

190 INPUT"DOQ YOU KNOW THE CONCENTRATION OF 
THE NEGATIVE ION 1";7Y¥% 

200 IFY$="N" THEN2S50 


137 


138 


210 INPUT" C";C1 

220 LP=C1i*Ki#(C1#AL/K1)°AL SPRINT 

230 PRINT: PRINT"“PRODUCT OF SOLUBILITY=";LP 
240 GOTO310 

250 INPUT“SOLUBILITY OF THE ANION IN MOL/L 
"7Cl 

260 LP=C1*%A1#(C1#K1/A1)*K1 

270 PRINT.PRINT. PRINT 

280 PRINT"PRODUCT OF SOLUBILITY=";,LP:GOTO3 
10 

290 LP=(LM#K1)°KI#(LM#A1) “AL 

300 PRINT?PRINT"PRODUCT OF SOLUBILITY OF S 
UBSTANCE 1=";LP:PRINT 

310 END 

320 INPUT"PRODUCT OF SOLUBILITY OF SUBSTAN 
CE 1";LP . 

330 Ci=EXPC(1/(K1+A1) DHLOG(LP/(KI°K1#A1°AL 
))) 

340 PRINT SPRINT: PRINT"SOLUBILITY=";C1; "MOL 
/L" 

350 END 

3GO0 PRINT: PRINT"PRODUCT OF SOLUBILITY OF T 
HE" ; 

370 INPUT"CONCENTRATION TO PRECIPITATE’ ;L 
380 PRINT: PRINT 

390 INPUT"ANION OR CATION (A/C) "71S 

400 PRINT 

410 IFI$="A"THEN480 

420 INPUT"CONCENTRATION OF THE CATION IN M 
OL/L";C 

430 PRINT 

440 X=L/C°K1 X=1/AL#LOG(X) CX=EXP(X) 

4350 PRINT"TO PRECIPITATE THE CONCENTRATION 
THE ANION "; 

460 PRINT“HAS TO BE GREATER THAN";X; "MOL/L 
470 GOTOS20 

480 PRINT"CONCENTRATION OF THE ANION IN MO 
L/L"; INPUTC 

490 K=L/C*ALIX=1/K1#LOG(X) SX=EXP(X) 

S00 PRINTS PRINT"TO PRECIPITATE THE CONCENT 
RATION THE CATION "; 

S10 PRINT"HAS TO BE GREATER THAN"?X? "MOL/L 


920 END 


IMPORTANT NEW BOOKS FROM ELCOMP 


irder No. Price Title Review 
150 $11.00 Care and Feeding of The Eight chapters exploring PET hardware. 
Commodore PET Includes repair and interfacing information 
Programming tricks and schematics. 
151 $ 9.95 8K Microsoft BASIC Reference Authoritative reference manual for the onginal 
Manual Microsoft 4K and 8K BASIC developed for 


Altair and later computers including PET. TRS- 
60, and OSI. OSI owners please take note! 


182 $ 9.95 Expansion Handbook for 6502 and This is a revised. formal printing of our unique 
6802 (5-44 Card Manual) S-44 card manual. Describes all of the 45» 6.5 
44-pin 5-44 cards including RAM, ROM. digital 

VO, and MUX/A to D. 


153 $14.90 Microcomputer Application Notes Reprint of Inte! literature 
154 $ 695 Complex Sound Generation New, revised applications manual tor the 


Texas Instruments SN 76477 Complex Sound 
Generator. Circuit board available 


155 $14.90 The First Book of TRS-80 Programs and applications ideas tor the TRS-80 
TRS-00 2 0 ademan of Tandy Coro 
156 $14.90 Small Business Programs Business Programs in BASIC for use on most 


microcomputers 


Available direct from us NOW. Dealers please contact us for starter stock. Plans for either large or small dealerships 


NEW: MONJANA/1 — THE USER-GUIDED MONITOR ROM FOR COMMODORE CBM 


4 well-documented, powerful new monitor ROM that any Commodore CBM user can plug into one of the tree 
ROM sockets. Ata price of only $98, including an extensive manual. MONJANA/1 offers more user guidance 

and debugging aids than any other monitor available today. It 1s indispensable for anyone intending to program 
his CBM in 6502 machine language. (Trace. link. disassembler. dump. relocate printer option. line assemble and 


much more.) Order No. 2001 renner trade name 1 Comencacie Bs pes Mase oes 7 
der No. Price Title Review 
2001 $98.00 MONIJANA/1 CBM Monitor Installs in free ROM socket 


NEW: OUR REDYSOFT CASSETTE SOFTWARE 


3475 $49.00 Assembler for CBM (BASIC and Complete assembler including disassembly 
machine language) and link. Cassette and manual 

3476 $69.00 Editor/Assembler in machine Fully screen- oriented, scrolling. fail-safe 

language. Operation. 
3999 $34.50 BASIC with I/O for TRS-80 Extended level 1 with I/O and string handling 
extension. Cassette and manual 

8094 $ 1.10 Blank Cassette (Quantity 1) Highest quality C-10 cassettes 

8095 $ 7.99 Blank Cassettes (Quantity 10) 

8096 $69.00 Blank Cassettes (Quantity 100) 


3873L Schaeter Avenue Payment: Check. Visa, Mastercharge 
Chino, California 91710 POSTPAID in USA 
(714) $91-3130 California add 6% tax 


PUBLISHING, INC. 





